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Editorials 

Stefano Tognon < ice00(5>libero.it > 




Hi, again. 

In this issue of SIDin I present two soft articles even if this number is a bit in delay with the 
planned release date. Ok, there was the holiday, but the most reason is the too much activity I'm in 
in this period. 

Don't worry, I'm working in a great reverse engineering work about Arkanoid tune, that can be 
probably released in the next issue. 

Instead, if you were asking with witch music player a given Sid tune was made, now we are 
working in this direction; however your help will be very appreciated. 

I let you know how it is possible to achieve this by pattern searching, and next time with a much 
great project! 

The second article is a little guide of how to rip BASIC based music; I rip a easy kind of BASIC 
music, but there are more complex BASIC games that attends that one rip them. 

Remember that the right of the presented code remain to Andrew Colin and Commodore. 



Before give you an appointment for the next issue, remember that if you want to have your pre- 
ferred music engine reverse engineered by me, please send me an email: there's a big probability 
that I do it (free time permitting). 

Bye 



News 



Some various news of players, libraries, programs, hardware and competitions: 

NanoSIDPIayv0.2b 

HVSC 5.2 

CGSC1.10 

Libsidplay2 2.1.0 

Goattrk V1. 4b Final 

ReSid0.14 

BOV 2002 

Catweasel MK3 PCI/Flipper 

XSidplay 1.6.5.1a 

TSID0.8 

Sid-Wine 2 compo 

Steppe and Yodelking' s Rip Compo 



NanoSIDplay v0.2b 





ile 
itle 
Composer 

Copyright 



Time elapsed: 00:58 



LastNinja2 (Tune 1/13) 
Matt Gray 
1988 System 3 




Play 



Stop 



Pause 



Load 



This windows player developed by Tom Roger Skauen 
is the first that use the NanoSID library by Laurent 
Ovaert. 

This library use a custom sid file (ZSID) that contains 
SID data and information about the sound generation 
(like ADSR bug). So a very old computer can perform sid 
music with a quality near to RESID emulation. 

The custom zsid files, the player and the library are 
available at: http://www.c64.no/nanosidplay and 
http://www.sid6581 .orq/NanoSID/ 



HVSC 5.2 




Released on 21/12/2002 the upgrade 34 of HVSC is the most big update ever! 
After this update, the collection should contain 20,325 SID files! 
This update contains: 

1009 new SIDs (yes, over 1,000 SIDs!) 
64 fixed/better rips 
100 fixes of PlaySID/Sidplayl specific SIDs (ie: RSID files) 

2 repeats/bad rips eliminated 
275 SID credit fixes 

Download the collection/upgrade from: http://www.hvsc.c64.org but be sure to have the update 
tool at version 2.8.2 before apply the upgrade. 



CGSC 1.10 




Released on 01/01/2003 The new 1.10 version of The Compute' sGazette Sid Collection 
(http: //www.c64music.co.uk/ ) with a little update file. 

In the collection there are so: 

5799 MUS, 1235 STR, 1527 WDS (including 73 with Extended Words) 



Libsidplay2 2.1.0 




Released on 27/12/2002 by Simon White the Iibsidplay2 version 2.1 .0 and sidplay2 2.0.8. 

Now all the stuff for compiling Iibsidplay2 is in one package and this made more simple to get 
the library compiled in Unix system. 



Download all the staff from http://sidplay2.sourceforqe.net 



Go 



oattrk V1 .4b Final 



The new final version of Cadaver' sPC Goattrk player and a stereo version are available at 
http://covertbitops.c64.orq/tools/qoattrk.zip and http://covertbitops.c64.orq/tools/qstereo.zip and 
was release on 9 January 2003. 

In this new version there are the implementation of a programmable (1 or 2 frame) hard restart 
and better steps programmable filter. Also available the tweak utility, and Goattrk songs to Ninjatrk 
format converter. 



ReSid 0.14 




The 0.14 version of Dag Lem' sReSid library was released on 14 January 2003 and is available 
here: ftp://ftp.funet.fi/pub/cbm/crossplatform/emulators/resid/resid-0.14.tar.qz 

changes in it: 

• The SID external audio input is now emulated: now we can have 8580 sample listen as with a 
external resistance. 

• The filter settings are now updated immediately when the chip model is changed. 

• Two bugs removed and improvement in exponential counter emulation. 



BOV 2002 




The Best Of Various for 2002 is being determine by the Sid fans (nomination ends 8 Feb.) 
Check the state at The Shark site: http://www.dhp.com/~shark/BOV/ 

The Best Of Various is an attempt to determine the best tunes that are in the VARIOUS direct- 
ory of the HVSC by an user voting system. 



Catweasel MK3 PCI/Flipper 




This new PCI based board have some nice features in it. 

For a Sid fans, the support of the SID chip is the best of it: allowed 6581 or 8580; the board can 
programmable switch to PAL and NTSC frequency. 



Check it at: http://www.jschoenfeld.de 

XSidplay 1.6.5.1a 




XSidplay continues to improve his integration with KDE3, QT3 and the new Iibsidplay2 with this 
release. 

Download the Unix Sid player from: 
http://www.qeocities.com/SiliconValley/Lakes/5147/sidplav 



'SID 0.8 




Just some schedule minor updates are present in this version of the library that store your listen- 
ing statistic about tunes in HVSC. I very hope that one day TSID2 will be as stable as TSID is be- 
ing showing now. 

Download from http://tsid.sourceforqe.net 



Sid-Wine 2 comp 




A new Sid-Wine 2 C64 Online Music Competition will start from 21 February to 21 April 2003. In 
order to organize the event, a little survey is available: everyone can choose how the compo will 
be by filling this file: http://diqilander.iol.it/ice00/tsid/sidwine2/survey.txt 

Check the state of the event at: http://diqilander.iol.it/ice00/tsid/sidwine2 



Steppe and Yodelking's Rip Compo 




A new compo is running until the 31 March 2003. It is for helping HVSC to grown by performing 
some ripping task: 

• Rips some Sid Hunt request 

• Makes a RSID rip version 

• Fixes bugged rips 

• Found image of file to rip 

See the complete compo at: http://www.demodunqeon.com/ripcompo/ 




Stephan Schmid Interview! 

by Stefano Tognon 




In this issue you can read this interview with Stephan that had occurs with some emails in Feb- 
rary on this year. Hopefully you know Stephan because he is now a HVSC crew member, or for his 
great work onto demos and music. But I, instead, know his fantastic "Tune 2" music that I consider 
one of the best Last Ninja 2 inspired composition!! 



Hello, Stephan, 

Before starting why not you say something about your real life: where do you live, what do 

you do... 

I' m 28 years old and live in Germany in a rather small city called Erlangen. 
Presently I' m still studying geology, but I hope to get my studies finished by June this year. 
I' mthe webmaster of the Demodungeon (www.demodunqeon.com ), a site meant as a tribute to 
the C64 demoscene. Since I had the idea to present all the SID tunes that played in the demos 
along with the screenshots I started ripping the ones that I couldn' find in HVSC. My ongoing con- 
tributions to HVSC finally ended up with the HVSC crew inviting me to join in October 2002. 

You were active In C64 music production In 1991, then nothing else. Could you say 
something about this short period of activity? 

Yep, my productivity period on the C64 was remarkably short, to be precise, it lasted only for about 
3 weeks. 

I got the Soundmonitor by Chris Hijlsbeck that was back then published in the 64' er magazine as a 
type-in listing. I learned to use it really quickly, in fact I made my first tune (Erste Schritte) on the 
day I finished typing it in. I' vebeen fascinated by those awesome SID tunes in the crack intros 
ever since, probably even more fascinated than by the game tunes. I tried to reproduce the sounds 
on the Soundmonitor, which was simply impossible. :-( So I quickly quit playing around with it, 
disappointed by the limited capabilities of the editor... I decided to look around for some better edit- 
ors, but never really managed to get back to the keyboard - until this week when I finally started 
hammering it again, this time with the JCH editor. It' snot quite easy to use, but I' rrsure you' Ihear 
more SID music from me soon. :-) 

Now you are an HVSC crew member, so you probably can answer a common question: how 
much work this task require? (All the sld fans attends always a new HVSC update, but we 
probably don't know all the work behind this!). 

This is really hard to answer, mostly because I don' Iwant to admit to myself how much time I 
really waste (sorry: spend) with this project. ;-) 

Most of the time I' dsay I spend about one to two hours per day on HVSC stuff. This involves 
checking a few demos or disks for unripped tunes, ripping them when necessary, contacting com- 
posers for information and verification, writing mails to the quite busy HVSC mailing lists, maintain- 
ing the Ripped Tunes list and the RSID to do list. But on the other hand I don' teally want to see it 
as "work", it' smy favourite hobby and I really enjoy working with this awesome bunch of guys in 
the HVSC crew. The time put into HVSC usually increases one or two weeks before the update 
when it comes to thoroughly checking the upcoming beta-version of the update. 



Now some quick final (standard) questions: 
Real machine vs emulator: what do you think of? 

I admit that I use the emulator most of the time for productivity stuff, like ripping tunes and 
everything coding-related that is involved with it. And why not? Vice' semulation quality is slowly 
nearing perfection and doing that stuff in a multitasking environment along with other tools that you 
keep open in other windows and that you need in addition really makes it a pleasure to work with. 
Then theres the backside of the medal: I never use the emu for playing games (which I rarely do 
anyway) or to watch some demos alone or with friends. Emulators just can' tapture the original 
feeling of a real C64. Same goes for composing, you just need a real SID chip, the background 
noise and the humming of the 1084. I have my C64 here on my desktop right beside my PC key- 
board and a 1541-11 on my PC case that is only used for transferring disks. That way I can quickly 
download and transfer everything over to the real machine if I want to. 



6581 vs 8580 chip: any (musical) preference? 

I like both chips, each one has its advantages. 

Samples and filters on the 6581 , the combined waveforms and the generally clearer sound on the 
8580. To fit both demands I always have a breadbox and a C64-II handy to quickly change 
between them when I know that a demo or game really relies on a certain chip to make it sound as 
it originally was intended. One of my future projects (or let' scall it a dream) is a C64 with two dif- 
ferent SIDs that I can switch on demand, if possible even while the C64 is running. That would be 
really nice for demos that use tunes from different composers. For example the recently released 
Insomnia by 64ever has tunes from Jeff and Vip. Jeff stunes heavily use the 6581 filters and really 
sound much better on the old SID, whereas Vip' stunes should really be listened to on a 8580. If 
anyone out there has ever built something like that and want to share some experience with me, 
please contact me at steppe@demodunqeon.com . 

What is the worst sid that you compose and the better one? 

Haha, actually I think that all my own SIDs aren' too good. I' dgive a big thumbs down to Erste 
Schritte, it' really nothing special, both musically and technically. I like my "Tune 2" with the unin- 
tentionally crept in Last Ninja II cover or the soft arpeggios in "Nicht Schlecht". Here I also made 
my first attempt on doing a pseudo 4 channel sound, by interweaving drums and bassline. 



Who are your best sid authors? 

That question is really hard to answer as I have a rather broad musical taste. From the classical 
game-composers I prefer Jeroen Tel, Galway, Follin, Matt Gray and Martin Walker. Ok, it would be 
unfair to leave Hubbard unmentioned, but I spend far less time listening to him than on other com- 
posers. Actually I like the "new" sound of the scene musicians far better anyway, so I spend surely 
90% of my time listening through the /VARIOUS directory. To name a few outstanding ones: Mitch 
& Dane, Shogoon, Daf, Jeff, Vip, DJB, GRG, Goto80, Trident, Wacek and Wizard. I could go on 
with this list forever, but those are the ones I like most for one or the other reason. 



What are the best sids ever in your opinion? 

Aargh, that' sagain one of those questions! ;-) I have about 600 SIDs in my alltime favourite playl- 
ist and my preference really changes on a daily basis. But let me try to name a few outstanding 
ones from /VARIOUS, as I' mtired of repeating the same Hubbard/Galway/Follin playlists that 
everyone already knows anyway: 



/VARIOUS/A-F/Bakewell_Dwayne/Old_Friends_PSID.sid 

# if you manage to get past the rather long intra you' Iget rewarded with a fantastic lead-melody! 
And the samples fit in really well, too. 

/VARIOUS/A-F/Behdad_Arman/Sweet_Fantasies.sid 

# from one of my favourite demos, Arcanum by Xenon. 

/VARIOUS/A-F/Blues_Muz/Gallefoss_Glenn/Electronic_Transfer.sid 

# Technically maybe one of the best SIDs ever done. I could name several others from his dir, be 
sure to check out the Soiled Legacy tunes at least! 

/VARIOUS/G-L/Goto80/Datagoaskit_2002.sid 

# So weird and yet so mature! I catch myself listening to that one for hours in the background. 
8580!!! 

/VARIOUS/G-L/Goto80/Slobband.sid 

# For its minimalism and a perfect choice of instruments. 

/VARIOUS/M-R/Mitch_and_Dane/Gloria.sid 

# Still one of my alltime favourites by Mitch & Dane. Cheerful, makes me feel good. 

/VARIOUS/S-Z/Shapie/lm_Back.sid 

# SID popmusic at its best! 

/VARIOUS/S-Z/Shogoon/Altered_States_Tune_1.sid 

# I pulled my hairs out over which tune to pick from groovemaster Shogoon! He' smusically 
lightyears ahead of the crowd, a truly outstanding musician which I admire both for his perfect 
sounds and compositions. 

/VARIOUS/G-L/Jeff/Crest_Main_A.sid 

# Just had to mention one of his numerous hits. The middle part of this tune starting at around 
2:00 is mindblasting! 

/VARIOUS/S-Z/Sonic/Man_With_No_Name_culture.sid 

# Still blows me away, even after having heard it for so many times. 

Finally, many thanks for the time you give for this Interview, and now you can say any 
things you want that the people will read from you! 

It was a pleasure answering those questions for your mag! 

To all the active C64 people out there I want to say: Keep the 8 bit torch up, you did a fantastic job 
in the past and it amazes me that there' s still some activity going on in the scene in the year 2003. 
Finally I want to draw your attention to the fact that Peter Sanden and me are doing a SID rip- 
compo at the moment. It' smeant to fill out the last empty spots in HVSC with missing SID tunes 
that have been requested by many SID fans all over the world. Some of them are really hard to rip, 
but some are quite easy too. So if you have some ripping knowledge and want to help make 
HVSC a better and more complete collection, come to http://www.demodunqeon.com/ripcompo/ . 
There' seven some nice prizes to win like original games, old C64 books, Instant Remedy' sC64 
remix CD and more. 

Webography: 

Demodungeon: 
www.demodunqeon.com 
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Music Engine pattern searching (part 1) 

by Stefano Tognon < ice00(5>libero.it > 




I don' know if you are asking like me with witch music player a given Sid tune is made by. It is 
just an information not needed by listing to the tune, but I think that it is more interesting to know 
with witch routine the sound was made. 

Here I want to illustrate how simple can be determine the Music Engine used by one tune if we 
have a pattern of it and we use a language that allow pattern searching (like Perl) 



Pattern searching 



The concept is simple: scan a file to found if it contains some bytes in sequence that we know 
that only a file made by a particular music engine can have. If true than we can say that this Sid 
tune is made using that music engine. 

Here the difficult in this is only one: found a representative pattern for a given music engine. I 
think that there are two kind of approach in this: 

1 . Found a pattern having a kind of source code of the player 

2. Found a pattern not having a source code of the player 

The first case is very simple: if the author of the player had released the source code, or there 
are some reverse engineering work about the player, we can found a pattern by looking for char- 
acteristic code used by the player. 

For examples each music player can have their special instruments, patterns, notes representa- 
tion, so looking for code that manage them are a good point for finding the player. 

Else, looking for how some music effects like portamento, vibrato, arpeggio are made can be 
valid too. 

Considering for example, the Martin Galway' s engine source code that I will present in a next is 
sue: you will see that the pattern can have vales greater than COh, because those values are in- 
structions for the music flow. So, this simple pattern found the Martin Galway engine (it is in Perl 
syntax, so see the last paragraph for further information): 

# Martin Galway engine 

# search for instruction in the read byte 
'\xA0\x00' . # LDY #$00 

' \xBl. ' . # LDA ($xx) , Y 

'\xC9\xC0' . # CMP #$C0 

'\x90', # BCC $xxxx 

So with 6 fixed bytes and a jolly byte in the fourth position, we can found the engine. As 7 bytes 
are very little, maybe some other music engines completely different can have the same code part 
with other meanings: if we will found that this is the case, the pattern should be changed. 

Another example: look for the Driller source code presented in the last issue. For finding a Matt 
Gray engine, we can look for the code that check for portamento flag in the pattern of note. This is 
a good point as the code is very characteristic: 

# Matt Gray engine 

# search for the code that read the next pattern value and set the 

# portamento flag 
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' \xFE. . ' . 


# 


INC 


$xxxx, X 


' \xDO. ' . 


# 


BNE 


$xxxx 


' \xC9\xFB' 


# 


CMP 


#$FB 


'\x90\x20' 


# 


BCC 


$xxxx 


' \xC9\xFB' 


# 


CMP 


#$FB 


'\xD0\xl8' 


# 


BNE 


$xxxx 


'\xA9\x01' 


# 


LDA 


#$01 


'\x9D. . ' . 


# 


STA 


$xxxx, X 


' \xC8' . 


# 


INY 




' \xFE. . ' . 


# 


INC 


$xxxx, X 


'\xBl' , 


# 


LDA 


($xx) ,Y 



As the cases that we have a source code of the player are very little, maybe we must use some 
disassembly files as shown in the next paragraphs. 



ie pattern 






If you did not have the source code, then use a disassembly and obtains a spartan one. Re- 
member to be sure to disassembly a tune you know that are made by that music player because 
the author say that or you have generate a test tune from the player editor just for this. 

With this code you may choose a portion of it as a pattern and test if the choice were good. 
However I think that a better one is to choose a part that are not used by the other versions of the 
same music player. Here I show how we can found JCH Newplayer version 1 , 2 and 3. 

Below there are (part of) the disassembled code of 4 JCH tunes: Hoppin, Brown Ice, Cavern, 
2Cvee. 

All the code were generated by SIDedit disassembler and then copied into a spreadsheet (you 
may use and editor that allow a vertical selection for coping only the assembler instructions). Now 
simple insert some cells spacing in a manner to make the code to be the same in the same rows. 
As we are comparing engines to progressive versions, this is not so difficult to achieve, as the new 
versions probably have little more features before the previous (however this is not always true) 





Hoppin VI 




Brown Ice VI 




Cavern V2 




2Cvee V3 


ASL 




ASL 






ASL 






ASL 




STA 


$166B,X 


STA 


$16AA, 


X 


STA 


$1727, 


X 


STA 


$178D,X 


INC 


$FB 


INC 


$FB 




INC 


$FB 




INC 


$FB 


BNE 


10BB 


BNE 


10CC 




BNE 


10C8 




BNE 


112B 


INC 


$FC 


INC 


$FC 




INC 


$FC 




INC 


$FC 


JMP 


$10BB 


JMP 


$10CC 




JMP 


$10C8 




JMP 


$112B 


CMP 


#$C0 


CMP 


#$C0 




CMP 


#$C0 




CMP 


#$C0 


BNE 


1125 


BNE 


1140 




BNE 


113C 




BNE 


119F 


PLA 




PLA 






PLA 






PLA 




ASL 




ASL 






ASL 






ASL 




ASL 




ASL 






ASL 






ASL 




ASL 




ASL 






ASL 






ASL 




ASL 




ASL 
CLC 






ASL 
CLC 






ASL 
CLC 








ADC 


#$0B 




ADC 


#$0B 




ADC 


#$0B 






TAY 






TAY 






TAY 








LDA 


$175A, 


Y 


LDA 


$17E9, 


Y 


LDA 


$1884, Y 
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EOR $1682, X EOR $16FF,X EOR $1765, X 

STA $175A,Y STA $17E9,Y STA $1884, Y 

STA $165F,X 

JMP $110D JMP $111E JMP $111A JMP $117D 

PLA PLA PLA PLA 

CMP #$FE CMP #$FE CMP #$FE CMP #$FE 

BNE 113C BNE 1157 BNE 1153 BNE 11B6 

DEC $1689, X DEC $16C8,X DEC $1745, X DEC $17AB,X 

BMI HOD BMI HIE BMI 111A BMI 117D 

LDA $1649, X LDA $1679, X LDA $16F6,X LDA $175C,X 

STA $FB STA $FB STA $FB STA $FB 

LDA $164C,X LDA $167C,X LDA $16F9,X LDA $175F,X 

STA $FC STA $FC STA $FC STA $FC 

JMP $10BB JMP $10CC JMP $10C8 JMP $112B 

CMP #$FD 
BNE 11C5 
LDA #$00 
STA $100C 
STA $D412 
JMP $1645 

LDA $163D,X LDA $166D,X LDA $16EA,X LDA $1019, X 

STA $FB STA $FB STA $FB STA $FB 

LDA $1640, X LDA $1670, X LDA $16ED,X LDA $101C,X 

LDY $1677, X LDY $16B6,X LDY $1733, X LDY $1799, X 

LDA $16E9,Y LDA $175E,Y LDA $17ED,Y LDA $1888, Y 

PHA PHA PHA PHA 

AND #$0F AND #$0F AND #$0F AND #$0F 

STA $1722, X STA $16F2,X STA $176F,X STA $17D5,X 

PLA PLA PLA PLA 

AND #$F0 AND #$F0 AND #$F0 AND #$F0 

LSR LSR LSR LSR 

LSR LSR LSR 

STA $1702, X STA $16E9,X STA $1766, X STA $17CC,X 

STA $102C,X STA $16E3,X STA $1760, X STA $17C6,X 

LDA #$0 LDA #$0 LDA #$0 LDA #$0 

STA $16EF,X STA $16EF,X STA $176C,X STA $17D2,X 

SEC SEC SEC SEC 

SBC $102C,X SBC $16E3,X SBC $1760, X SBC $17C6,X 

STA $16F2,X STA $16E6,X STA $1763, X STA $17C9,X 

LDA $16EA, Y LDA $175F,Y LDA $17EE,Y LDA $1889, Y 

STA $1712, X STA $16EC,X STA $1769, X STA $17CF,X 

CPX #$00 CPX #$00 

BNE 134F BNE 13C1 

LDA $16EB,Y LDA $1760, Y LDA $17F8,Y LDA $1893, Y 

PHA PHA PHA PHA 

AND #$F0 AND #$F0 
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STA $16AA,X STA $16FB,X 

PLA PLA 

AND #$0F AND #$0F AND #$0F AND #$0F 

BEQ 134 9 BEQ 13BB 

ASL ASL 

ASL 

STA $1772 STA $17D8 

STA $1773 STA $17D9 

PLA PLA 

AND #$F0 AND #$F0 

CLC CLC 

ADC $1777 ADC $1009 

STA $D418 STA $D418 

LDA $17F7,Y LDA $18 92, Y 

STA $1775 STA $17DB 

LDA $17F6,Y LDA $1891, Y 

PHA PHA 

AND #$F0 AND #$F0 

CLC CLC 

ADC #$01 ADC #$01 

STA $D417 STA $D417 

PLA PLA 

AND #$01 AND #$01 

STA $1774 STA $17DA 

LDA $17F5,Y LDA $1890, Y 

STA $1776 STA $17DC 

STA $D416 STA $D416 

JMP $134F JMP $13C1 

PLA PLA 

LDA #$0 LDA #$0 

STA $D417 STA $D417 

LDA $17EF,Y LDA $188A, Y 

PHA PHA 

AND #$F0 AND #$F0 

STA $177E,X STA $17E3,X 

PLA PLA 

AND #$0F AND #$0F 

STA $16A7,X STA $16F8,X STA $177B,X STA $17E0,X 

LDA $16EC,Y LDA $1761, Y LDA $17F0,Y LDA $188B,Y 

STA $16A4,X STA $16F5,X STA $1778, X STA $17DD,X 

LDA $16ED,Y LDA $1762, Y LDA $17F1,Y LDA $188C,Y 

PHA PHA PHA PHA 

AND #$F0 AND #$F0 AND #$F0 AND #$F0 

CMP #$10 CMP #$10 CMP #$10 CMP #$10 

BNE 133E BNE 13 65 BNE 13A8 BNE 141A 

PLA PLA PLA PLA 

AND #$0F AND #$0F AND #$0F AND #$0F 
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At this point we can see that the first two songs are made by two version 1 that are little differ- 
ent: in particular the second seems to be an improvement of the fist (look at the bold code to see 
the difference). For finding a pattern for the version 1 of the player, we must found a code that are 
common in the two first tunes, but that are not present in the other two. The solution is the blue 
code, while the red shows a pattern only use by version 2, and green by version 3 of the player. 

What the selected code in the pattern means for the player we are not able to say: this require 
an accurate reverse engineering work, but we only need a pattern that find that player. 

Now convert the pattern to the appropriate programming language (see next paragraph) and 
test the pattern to the tunes you know to be made by this engine. All the tunes may be founded, 
otherwise you have found a minor variant that need further investigation. 



Write the pattern 




Now we have found 3 peaces of code that represent the JCH NewPlayer version 1 , 2 and 3. 
Enter again in SIDedit ant pick up the complete code (e.g byte codes + assembler instructions) 
that was found as a pattern; here the code for version 1 : 



12BC 


BC 


77 


16 


LDY 


$1677, 


X 


12BF 


B9 


E9 


16 


LDA 


$16E9, 


Y 


12C2 


48 






PHA 






12C3 


29 


OF 




AND 


#$0F 




12C5 


9D 


22 


17 


STA 


$1722, 


X 


12C8 


68 






PLA 






12C9 


29 


F0 




AND 


#$F0 




12CB 


4A 






LSR 






12CC 


4A 






LSR 






12CD 


9D 


02 


17 


STA 


$1702, 


X 


12D0 


9D 


2C 


10 


STA 


$102C, 


X 


12D3 


A9 


00 




LDA 


#$00 




12D5 


9D 


EF 


16 


STA 


$16EF, 


X 


12D8 


38 






SEC 






12D9 


FD 


2C 


10 


SBC 


$102C, 


X 


12DC 


9D 


F2 


16 


STA 


$16F2, 


X 


12DF 


B9 


EA 


16 


LDA 


$16EA, 


Y 


12E2 


9D 


12 


17 


STA 


$1712, 


X 


12E5 


B9 


EB 


16 


LDA 


$16EB, 


Y 


12E8 


48 






PHA 






12E9 


29 


F0 




AND 


#$F0 




12EB 


9D 


AA 


16 


STA 


$16AA, 


X 


12EE 


68 






PLA 






12EF 


29 


OF 




AND 


#$0F 




12F1 


9D 


A7 


16 


STA 


$16A7, 


X 


12F4 


B9 


EC 


16 


LDA 


$16EC, 


Y 


12F7 


9D 


A4 


16 


STA 


$16A4, 


X 


12FA 


B9 


ED 


16 


LDA 


$16ED, 


Y 


12FD 


48 






PHA 






12FE 


29 


F0 




AND 


#$F0 




1300 


C9 


10 




CMP 


#$10 




1302 


DO 


3A 




BNE 


133E 





Now the first thing to know if that absolute memory location are always relative to the point 
where the player was linking in memory, so they are not to be found. So, for example, of the first 6 
bytes, we may have: BD ?? ?? B9 ?? ?? where the ?? means that this byte can have any value. 
The only case where absolute memory location are to be left are for those that are pointing to I/O 
space, like D4xx (the sid chip). 

The same thing are to apply to zero-page locations, because even if it is most probably that the 
zero pages did not changes, maybe some player let the user to choose the zero-page locations 
that are to be used, so it is to prefer to let them unknown. 
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Even if relative location (like branch jumping) could not change, I prefer to not insert that branch 
value if it is outside the peace of code we are using as pattern. 

At this point is simple: convert the remaining pattern values to the language you want to use: for 
example here the Perl code for the above pattern (a point . in a Perl string has the same meaning 
of ??, and \x is a prefix for a hexadecimal number) : 

but not 



# search for 


code common to 


all the vl 


revisions 


# equal to >vl version 








'\xBC. . ' . 


# 


LDY 


$xxxx, X 




'\xB9. . ' . 


# 


LDA 


$xxxx, Y 




'\x48' . 


# 


PHA 






'\x29\xOF' . 


# 


AND 


#$0F 




'\x9D. . ' . 


# 


STA 


$xxxx, X 




'\x68' . 


# 


PLA 






'\x29\xF0' . 


# 


AND 


#$F0 




'\x4A' . 


# 


LSR 






'\x4A' . 


# 


LSR 






'\x9D. . ' . 


# 


STA 


$xxxx, X 




'\x9D. . ' . 


# 


STA 


$xxxx, X 




'\xA9\x00' . 


# 


LDA 


#$00 




'\x9D. . ' . 


# 


STA 


$xxxx, X 




'\x38' . 


# 


SEC 






' \xFD. . ' . 


# 


SBC 


$xxxx, X 




'\x9D. . ' . 


# 


STA 


$xxxx, X 




'\xB9. . ' . 


# 


LDA 


$xxxx, Y 




'\x9D. . ' . 


# 


STA 


$xxxx, X 




'\xB9. . ' . 


# 


LDA 


$xxxx, Y 




'\x48' . 


# 


PHA 






'\x29\xF0' . 


# 


AND 


#$F0 




'\x9D. . ' . 


# 


STA 


$xxxx, X 




'\x68' . 


# 


PLA 






'\x29\xOF' . 


# 


AND 


#$0F 




'\x9D. . ' . 


# 


STA 


$xxxx, X 




'\xB9. . ' . 


# 


LDA 


$xxxx, Y 




'\x9D. . ' . 


# 


STA 


$xxxx, X 




'\xB9. . ' . 


# 


LDA 


$xxxx, Y 




'\x48' . 


# 


PHA 






'\x29\xF0' . 


# 


AND 


#$F0 




'\xC9\xlO' . 


# 


CMP 


#$10 




'\xD0' 


# 


BNE 


xxxx 





Now that we have the string pattern, for looking if a tune is of that engine, in Perl we need only 
one instruction: 

if ($data =~ /$Search/s) { 

print "Found! ! ! \n"; 
} 

where $data will contain all the body of the tune to scan and $Search contains the string pattern 
to search for. 



Conclusion 



Can we do a better task? 




Yes, in the next issue we will see the Lada ' RayLostak database of engines (try a look here: ht- 
tp://www.unrea!64.net ), that contains over 450 engines in it. 

We will see how to create and entry and how people could collaborate to make the database 
grown: the main goal is to will be able to find the engines of more that 90% of HVSC tunes! 
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Ripping BASIC based tune 

by Stefano Tognon < ice00(5>libero.it > 




Although you know that using the BASIC language you cannot achieve good music result, there 
are many old games that where use the BASIC even for generating the music. As an old game 
you play is probably a good memory for you, maybe you would want to listen to that tune in a sid 
player. So the main point is: how we can rip an old BASIC game? 

Here I illustrate the steps I used for ripping the Testcard demo presented by Andrew Colin in In- 
troduction to Basic part 1 , and The Arrival of The Queen of Sheba music program showed in Intro- 
duction to Basic part 2. 

Note that the BASIC programs showed here are Copyrighted by Andrew Colin and Commodore: 
I have reproduced the code of Testcard as it is not showed in the books, while I' vGomitted the one 
for Sheba as it is present in the book. 



Tin 



he Arrival of the Queen of Sheba 




This tune was presented in the Appendix A of the second part of the course: it purpose was to 
show what the machine code can do with all the 3 Sid voices. This let our work be easier: in fact 
the BASIC program is only used for setting up all the stuff needed by the custom machine code 
player to play the music. 

Look at the code: the machine code routine is loaded into memory with the BASIC code from 
row 20 to row 280; then voice parameters used by the player are copied to the right place in 
memory and a table of frequency are generated too (rows 300-430). At this point Sid values are 
set for each voice (500 to 565) and finally each pattern of data for each voice are decoded and 
putted into memory. You know from the description in the book that for each voice there are the 
note value and his duration, coded in a particular manner. During this decoding process, the ma- 
chine code routine is called so music can start while the BASIC program is still working. 

All we need for making the rip in now simple: start the program with an emulator and in the mon- 
itor make a disassembly of the player code and look as it works. Then pick up all the memory 
blocks wrote by the BASIC program and store in a file. Now open an editor, insert the disas- 
sembled code of the player plus the saved data. Add the needed initialization part that the BASIC 
does for the SID chip in the initialization part of the PSID file, then setting the right IRQ timing as 
done by the player. 

Now you can so see all the source of the rip: 



The arrival of the queen of Sheba 

by G. F. Handel 

Arranged by Andew Colin (1982/83) 

The originale song use a Basic/machine 

code for generating music 

This is a machine code port 

The code can generate a PRG or SID file. 



. ifdef sid 
.byte "PSID" 

.word $0200 ; version 2 

.word $7C00 ; data offset 

.word $0000 ; load address in cbm format 

.byte >initMusic 
.byte <initMusic 
.byte >playMusic 
.byte <playMusic 
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1 song 
default song 



.word $0100 

.word $0100 

.word $FFFF 

.word $FFFF 

.byte "Arrival of the queen of Sheba", 0,0,0 

.byte "Andrew Colin", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

.byte "1982-83 Commodore Inc" , 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

.word $0000 

.word $0000 

.word $0000 



. endif 



.org $0801 



PRG start address 
byte $01, $08 



BASIC startup program 
byte $0b,$08,$e8,$03,$9e,"2061",0,0,0 



.org 2061 

jsr initMusic 

sei 

Ida #<interr 

sta $0314 

Ida #>interr 

sta $0315 

cli 



aaa : 

jmp aaa 

interr = * 
;lda 
; and 
; sta 
Ida 
bne 

kernal : 

;lda 
; ora 
; sta 
jmp 



$01 

#$fe 

$01 
contr+0 
playMusic 

$01 

#$01 

$01 

$ea31 



playMusic: 

ldx #$00 

Ida instr+0,x 

beq nend 

inc instr+5,x 

bne nend 

inc instr+6,x 

bne nend 

Ida instr+l,x 

sta $fe 

Ida instr+2,x 

sta $ff 

ldy #$00 

Ida ($fe),y 

asl 

tay 

Ida contr+2,y 

sta $d400,x 

Ida contr+3,y 

sta $d401,x 

Ida instr+3,x 

sta $fe 

Ida instr+4,x 

sta $ff 

ldy #$00 

Ida ($fe),y 

bne skip 

sta instr+0,x 

jmp nend 
skip: 

tay 



loop: 



Ida instr+5,x 

sec 

sbc contr+1 

sta instr+5,x 

Ida instr+6,x 

sbc #$00 

sta instr+6,x 



Voice 1: Control registers 



Voice 1: notes address lo 
Voice 1: notes address hi 



Voice 1: Frequency control (lo byte) 

Voice 1: Frequency control (hi byte) 

Voice 1 : notes duration address lo 

Voice 1: notes duration address hi 



Voice 1: Control registers 
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dey 




bne 


loop 


inc 


instr+1, x 


bne 


skipl 


inc 


instr+2, x 


skipl : 




inc 


instr+3, x 


bne 


skip2 


inc 


instr+4, x 


skip2 : 




Ida 


#$00 


sta 


$d404,x 


Ida 


instr+0, x 


sta 


$d404,x 


nend: 




txa 




clc 




adc 


#$07 


tax 




cmp 


#$15 


bne 


skip3 


.ifdef sid 


rts 




. endif 




jmp 


kernal 


skip3 : 




jmp 


playMusic+2 


initMusic = * 


registers 


Ida 


#$00 


; sta contr+O 


sta 


contr+2 


sta 


contr+3 


Ida 


#$8 


sta 


contr+1 


ldx 


#24 


Ida 


#0 


loopl : 




sta 


$D400,x 


dex 




bpl 


loopl 


Ida 


#25 


sta 


$D405 


sta 


$D40C 


sta 


$D413 


Ida 


#79 


sta 


$D418 


Ida 


#200 


sta 


$D402 


Ida 


#60 


sta 


$D409 


sta 


$D410 


Ida 


#50 


sta 


$D416 


Ida 


#0 


sta 


$D417 



rts 

contr =* 
.byte 1;0 
.byte 8 
.byte 
.byte 

freq =* 

.byte 76, 4 
.byte 141, 4 
.byte 210, 4 
.byte 28, 5 
.byte 105, 5 
.byte 188, 5 
.byte 19, 6 
.byte 112, 6 
.byte 210, 6 
.byte 57, 7 
.byte 167, 7 
.byte 28, 8 
.byte 152, 8 
.byte 26, 9 
.byte 165, 9 
.byte 56, 10 
.byte 211, 10 
.byte 120, 11 
.byte 39, 12 



Voice 1 
Voice 1 
Voice 1 
Voice 1 



Voice 1 
Voice 1 
Voice 1 



notes address lo 

notes address hi 

notes duration address lo 

notes duration address hi 



Control registers 
Control registers 
Control registers 



initialize control 



Here the init part as 
done by the BASIC 



erase all sid registers 



initialze sid registers 



Generator 1 
Generator 1 
Generator 1 



At tack /Decay (voice 1) 
At tack /Decay (voice 2) 
At tack /Decay (voice 2) 



Select volume and filter mode 

Voice 1: Wave form pulsation amplitude (lo byte) 

Voice 2: Wave form pulsation amplitude (lo byte) 

Voice 3: Wave form pulsation amplitude (lo byte) 



control register 



This is the frequency 
table as the BASIC 
had generated 
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.byte 2 

.byte 1 

.byte 1 

.byte 7 

.byte 5 
.byte 

.byte 5 

.byte 7 

.byte 1 

.byte 1 

.byte 2 

.byte 7 

.byte 1 

.byte 7 

.byte 2 

.byte 1 

.byte 1 

.byte 9 

.byte 1 

.byte 1 

.byte 2 

.byte 7 

.byte 2 

.byte 1 

.byte 1 

.byte 1 

.byte 2 

.byte 6 

.byte 2 

.byte 1 

.byte 2 

.byte 4 

.byte 1 

.byte 1 

.byte 1 

-byte 5 

.byte 2 

.byte 3 

.byte 1 

.byte 1 

.byte 2 

.byte 1 

.byte 1 

.byte 8 
; .byte 
; .byte 
; .byte 
; .byte 
; .byte 



24, 12 
64, 13 
15, 14 
9, 15 
7, 16 

17 
3, 18 
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20 
21 
22 

24 
25 

27 
28 
30 
32 

34 
36 
38 
40 

43 
45 
48 
51 
54 
57 

61 
64 
68 
72 

77 
81 



1 
97 
103 

109 
, 115 
, 122 
, 129 
, 137 
, 145 
6, 154 
132, 163 
61, 173 
138, 183 
116, 194 
4, 206 



instr=* 

.byte 65 

.byte <notel 

.byte >notel 

.byte <lenl 

.byte >lenl 

.byte 255 

.byte 255 



Voice 1 : Control registers 

Voice 1: notes address lo 

Voice 1 : notes address hi 

Voice 1 : notes duration address lo 

Voice 1: notes duration address hi 



.byte 17 

.byte <note2 

.byte >note2 

.byte <len2 

.byte >len2 

.byte 255 

.byte 255 



Voice 2 
Voice 2 
Voice 2 
Voice 2 
Voice 2 



Control registers 

notes address lo 

notes address hi 

notes duration address lo 

notes duration address hi 



.byte 17 
.byte <note3 
.byte >note3 
.byte <len3 
.byte >len3 
.byte 255 
.byte 255 



Voice 3 
Voice 3 
Voice 3 
Voice 3 
Voice 3 



Control registers 

notes address lo 

notes address hi 

notes duration address lo 

notes duration address hi 



notel 

.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 



$2f, 
$2f, 
$25, 
$27, 
$2f, 
$2f, 
$2e, 
$27, 
$22, 
$27, 
$25, 
$22, 
$27, 
$25, 



$2a, 
$2a, 
$2f, 
$23, 
$2a, 
$29, 
$2c, 
$25, 
$25, 
$2a, 
$28, 
$23, 
$2a, 
$2a, 



$27, 

$27, 
$2e, 
$25, 
$23, 
$25, 
$2a, 
$27, 
$22, 
$27, 
$25, 
$25, 
$27, 
$25, 



$2a, 
$2a, 
$2c, 
$27, 
$2a, 
$29, 
$2c, 
$25, 
$le, 
$23, 
$22, 
$27, 
$23, 
$22, 



$2f, 
$2f, 
$2a, 
$28, 
$2f, 
$2f, 
$25, 
$27, 
$22, 
$27, 
$25, 
$28, 
$27, 
$25, 



$2a, 
$2a, 
$28, 
$2a, 
$2a, 
$2c, 
$29, 
$25, 
$2a, 
$28, 
$27, 
$2a, 
$2a, 
$27, 



ote value 
$27, $2a 
$27, 
$27, 
$2c, 
$27, 
$25, 
$2a, 
$22, 
$27, 
$25, 
$le, 
$27, 
$25, 
$23, 



for voice 1 



$2a 
$25 
$2e 
$2a 
$2c 
$25 
$le 
$23 
$20 
$20 
$23 
$22 
$20 
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.byte $23 

.byte $22 

.byte $2c 

.byte $2a 

.byte $2a 

.byte $23 

.byte $20 

.byte $27 

.byte $2a 

.byte $27 

.byte $2a 

.byte $27 

.byte $2a 

.byte $27 

.byte $2c 

.byte $2f 

.byte $le 

.byte $23 

.byte $27 

.byte $27 

.byte $27 

.byte $27 

.byte $2e 

.byte $17 

.byte $2c 

.byte $28 

.byte $27 

.byte $25 

.byte $25 

.byte $2a 

.byte $2a 

.byte $25 

.byte $23 

.byte $2e 

.byte $23 

.byte $2a 

.byte $25 

.byte $25 

.byte $22 

.byte $22 

.byte $2a 

.byte $2a 

.byte $23 

.byte $ld 

.byte $2e 

.byte $2c 

.byte $2a 

.byte $23 

.byte $23 

.byte $23 

.byte $23 

.byte $23 

.byte $23 

.byte $le 

.byte $2a 

.byte $25 

.byte $27 

.byte $27 

.byte $27 

.byte $25 

.byte $28 

.byte $27 

.byte $25 

.byte $2c 

.byte $27 

.byte $27 

.byte $2f 

.byte $22 

.byte $2b 

.byte $25 

.byte $22 

.byte $22 

.byte $25 

.byte $27 

.byte $23 

.byte $28 

.byte $2c 

.byte $2a 

.byte $28 

.byte $27 

.byte $25 

.byte $23 

.byte $2c 

.byte $lc 

.byte $21 

.byte $27 

.byte $2a 

.byte $23 

.byte $25 

.byte $25 



, $27 


$23 


$20, 


$23 


$27, 


$22, 


, $27 


$22 


$le, 


$22 


$2f, 


$2c, 


, $2f 


$2c 


$28, 


$2c 


$2f, 


$2a, 


, $2f 


$2a 


$27, 


$2a 


$28, 


$2a, 


, $28 


$27 


$25, 


$23 


$22, 


$23, 


, $22 


$20 


$le, 


$lc 


$lb, 


$le, 


, $le 


$22 


$20, 


$23 


$22, 


$25, 


, $25 


$28 


$27, 


$2a 


$28, 


$2a, 


, $2c 


$2a 


$28, 


$27 


$25, 


$27, 


, $28 


$2a 


$28, 


$2a 


$2c, 


$2a, 


, $28 


$27 


$28, 


$27 


$25, 


$27, 


, $28 


$2a 


$28, 


$2a 


$2c, 


$2a, 


, $28 


$27 


$28, 


$27 


$25, 


$27, 


, $28 


$27 


$28, 


$25 


$27, 


$2a, 


, $2a 


$2e 


$2c, 


$2f 


$2e, 


$2c, 


, $28 


$27 


$25, 


$23 


$le, 


$22, 


, $00 


$23 


$25, 


$27 


$28, 


$27, 


, $2a 


$28 


$27, 


$28 


$27, 


$28, 


, $28 


$2a 


$2c, 


$2a 


$28, 


$27, 


, $28 


$25 


$27, 


$25 


$23, 


$2f, 


, $2a 


$2f 


$2a, 


$27 


$2a, 


$2f, 


, $2a 


$2f 


$2a, 


$27 


$2a, 


$25, 


, $2c 


$2a 


$28, 


$27 


$25, 


$27, 


, $2a 


$2c 


$2a, 


$28 


$27, 


$28, 


, $2a 


$28 


$27, 


$2a 


$28, 


$27, 


, $27 


$2a 


$2a, 


$28 


$27, 


$25, 


, $25 


$23 


$27, 


$25 


$2a, 


$22, 


, $27 


$25 


$2a, 


$22 


$23, 


$25, 


, $2a 


$2a 


$2a, 


$2a 


$25, 


$22, 


, $25 


$22 


$25, 


$2a 


$25, 


$22, 


, $25 


$2a 


$2e, 


$2c 


$2a, 


$29, 


, $23 


$22 


$20, 


$22 


$le, 


$20, 


, $25 


$27 


$29, 


$2a 


$2c, 


$2e, 


, $2c 


$2a 


$25, 


$23 


$22, 


$23, 


, $20 


$22 


$23, 


$25 


$27, 


$25, 


, $2c 


$2e 


$2f, 


$2c 


$2e, 


$2c, 


, $22 


$le 


$22, 


$25 


$22, 


$le, 


, $20 


$ld 


$20, 


$25 


$20, 


$ld, 


, $le 


$lb 


$le, 


$22 


$le, 


$lb, 


, $ld 


$19 


$ld, 


$22 


$ld, 


$19, 


, $27 


$23 


$27, 


$2a 


$27, 


$23, 


, $25 


$22 


$25, 


$2a 


$25, 


$22, 


, $25 


$27 


$25, 


$23 


$22, 


$20, 


, $2c 


$2e 


$2c, 


$2c 


$2a, 


$2f, 


, $2c 


$2e 


$2f, 


$2e 


$2c, 


$2c, 


, $2a 


$2c 


$2e, 


$2c 


$2a, 


$2a, 


, $29 


$27 


$29, 


$27 


$25, 


$23, 


, $22 


$20 


$22, 


$20 


$22, 


$23, 


, $25 


$27 


$25, 


$27 


$25, 


$23, 


, $22 


$20 
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$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$02 


$01 


$01 


$02, 


$02 


$04 




.byte 


$02 


$02 


$04 


$04 


$08 


$00 








note2 = 












; n 


ote * 


/alue for voice 2 


.byte 


$17 


$17 


$16 


$16 


$14 


$14, 


$12 


$12 




.byte 


$10 


$10 


$12 


$12 


$17 


$0b, 


$0f 


$0f 




.byte 


$14 


$14 


$0d 


$0d 


$11 


$11, 


$12 


$lb 




.byte 


$ld 


$0d 


$12 


$0a 


$0d 


$12, 


$12 


$10 





23 



.byte $10 

.byte $12 

.byte $le 

.byte $lb 

.byte $17 

.byte $12 

.byte $14 

.byte $27 

.byte $00 

.byte $27 

.byte $2a 

.byte $27 

.byte $27 

.byte $2a 

.byte $le 

.byte $23 

.byte $27 

.byte $27 

.byte $27 

.byte $27 

.byte $2e 

.byte $17 

.byte $2c 

.byte $28 

.byte $27 

.byte $25 

.byte $25 

.byte $2a 

.byte $2a 

.byte $25 

.byte $23 

.byte $25 

.byte $23 

.byte $2a 

.byte $16 

.byte $12 

.byte $0f 

.byte $14 

.byte $2c 

.byte $2e 

.byte $2c 

.byte $27 

.byte $ld 

.byte $23 

.byte $ld 

.byte $23 

.byte $ld 

.byte $20 

.byte $2c 

.byte $27 

.byte $27 

.byte $27 

.byte $2e 

.byte $25 

.byte $23 

.byte $27 

.byte $25 

.byte $25 

.byte $2b 

.byte $12 

.byte $0f 

.byte $10 

.byte $19 

.byte $17 

.byte $0d 

.byte $lb 

.byte $lf 

.byte $20 

.byte $14 

.byte $13 

.byte $22 

.byte $23 

.byte $20 

.byte $lc 

.byte $lb 

.byte $20 

.byte $28 

.byte $2c 

.byte $19 

.byte $lb 

.byte $10 

.byte $12 

.byte $25 

.byte $25 

.byte $28 

.byte $2a 

.byte $19 

.byte $19 

.byte $18 

.byte $14 



, $0f 


$0f 


$14, 


$14, 


$0d, 


$0d, 


, $17 


$0b 


$lb, 


$le, 


$lb, 


$le, 


, $19 


$le 


$17, 


$lb, 


$17, 


$lb, 


, $16 


$lb 


$14, 


$17, 


$14, 


$17, 


, $12 


$17 


$19, 


$19, 


$19, 


$10, 


, $12 


$0a 


$0b, 


$0d, 


$0f, 


$10, 


, $16 


$17 


$25, 


$27, 


$25, 


$27, 


, $25 


$23 


$22, 


$00, 


$22, 


$00, 


, $25 


$00 


$28, 


$2a, 


$28, 


$2a, 


, $25 


$27 


$22, 


$27, 


$22, 


$27, 


, $25 


$2a 


$28, 


$2a, 


$28, 


$2a, 


, $25 


$27 


$22, 


$27, 


$22, 


$27, 


, $28 


$25 


$23, 


$22, 


$23, 


$25, 


, $20 


$le 


$20, 


$23, 


$le, 


$lc, 


, $00 


$23 


$25, 


$27, 


$28, 


$27, 


, $2a 


$28 


$27, 


$28, 


$27, 


$28, 


, $28 


$2a 


$2c, 


$2a, 


$28, 


$27, 


, $28 


$25 


$27, 


$25, 


$23, 


$2f, 


, $2a 


$2f 


$2a, 


$27, 


$2a, 


$2f, 


, $2a 


$2f 


$2a, 


$27, 


$2a, 


$25, 


, $2c 


$2a 


$28, 


$27, 


$25, 


$23, 


, $2a 


$2c 


$2a, 


$28, 


$27, 


$28, 


, $2a 


$28 


$27, 


$2a, 


$28, 


$27, 


, $27 


$2a 


$2a, 


$28, 


$27, 


$25, 


, $25 


$23 


$27, 


$25, 


$2a, 


$22, 


, $27 


$25 


$2a, 


$22, 


$23, 


$25, 


, $2a 


$2a 


$2a, 


$22, 


$25, 


$22, 


, $25 


$22 


$25, 


$2a, 


$25, 


$22, 


, $25 


$2a 


$2e, 


$2c, 


$2a, 


$29, 


, $23 


$22 


$20, 


$22, 


$le, 


$20, 


, $25 


$27 


$29, 


$22, 


$2c, 


$2e, 


, $23 


$22 


$25, 


$23, 


$22, 


$23, 


, $20 


$22 


$23, 


$25, 


$27, 


$25, 


, $2c 


$2e 


$2f, 


$2c, 


$2e, 


$2c, 


, $19 


$16 


$19, 


$14, 


$19, 


$14, 


, $16 


$12 


$16, 


$11, 


$16, 


$11, 


, $12 


$0f 


$12, 


$0d, 


$12, 


$0d, 


, $14 


$14 


$14, 


$0d, 


$2c, 


$2e, 


, $2a 


$2f 


$2e, 


$2e, 


$2c, 


$2e, 


, $2c 


$2c 


$2e, 


$2c, 


$2a, 


$2c, 


, $2a 


$2a 


$2c, 


$2a, 


$29, 


$27, 


, $25 


$23 


$25, 


$23, 


$22, 


$ld, 


, $22 


$20 


$25, 


$20, 


$25, 


$23, 


, $25 


$20 


$22, 


$20, 


$22, 


$ld, 


, $22 


$20 


$25, 


$20, 


$25, 


$23, 


, $25 


$20 


$22, 


$20, 


$22, 


$ld, 


, $22 


$20 


$25, 


$20, 


$25, 


$22, 


, $20 


$22 


$25, 


$le, 


$27, 


$28, 


, $2a 


$28 


$27, 


$2a, 


$28, 


$27, 


, $28 


$25 


$27, 


$25, 


$23, 


$2f, 


, $2a 


$2f 


$2a, 


$27, 


$2a, 


$2f, 


, $2a 


$2f 


$2a, 


$27, 


$2a, 


$25, 


, $2c 


$2a 


$28, 


$27, 


$25, 


$27, 


, $27 


$23 


$23, 


$22, 


$22, 


$20, 


, $23 


$22 


$27, 


$28, 


$27, 


$25, 


, $25 


$23 


$25, 


$27, 


$25, 


$23, 


, $23 


$22 


$23, 


$25, 


$27, 


$28, 


, $23 


$2f 


$2e, 


$2c, 


$2e, 


$2c, 


, $2c 


$27 


$23, 


$27, 


$14, 


$14, 


, $10 


$10 


$0f, 


$0f, 


$0d, 


$0d, 


, $08 


$00 


$14, 


$14, 


$0f, 


$0f, 


, $0d 


$10 


$14, 


$10, 


$0d, 


$le, 


, $19 


$le 


$lb, 


$17, 


$lb, 


$le, 


, $10 


$10 


$0b, 


$0b, 


$10, 


$0d, 


, $10 


$0d 


$0a, 


$lb, 


$lb, 


$16, 


, $17 


$14 


$17, 


$lb, 


$17, 


$14, 


, $19 


$16 


$19, 


$lf, 


$19, 


$16, 


, $lb 


$17 


$lb, 


$14, 


$0f, 


$0b, 


, $10 


$0d 


$10, 


$19, 


$14, 


$10, 


, $13 


$19 


$19, 


$20, 


$20, 


$20, 


, $20 


$lf 


$17, 


$01, 


$20, 


$23, 


, $le 


$23 


$le, 


$23, 


$lc, 


$20, 


, $lb 


$20 


$lb, 


$20, 


$19, 


$lc, 


, $17 


$lc 


$17, 


$lc, 


$19, 


$19, 


, $17 


$20 


$21, 


$23, 


$25, 


$23, 


, $2c 


$2a 


$28, 


$2a, 


$28, 


$2a, 


, $2f 


$2d 


$2c, 


$2d, 


$2c, 


$2d, 


, $2a 


$28 


$14, 


$17, 


$14, 


$17, 


, $14 


$19 


$16, 


$19, 


$16, 


$19, 


, $16 


$lb 


$0b, 


$0f, 


$0b, 


$0f, 


, $0b 


$10 


$0d, 


$10, 


$0d, 


$10, 


, $0d 


$12 


$23, 


$28, 


$2a, 


$2c, 


, $23 


$2a 


$28, 


$27, 


$28, 


$27, 


, $27 


$28 


$27, 


$25, 


$27, 


$25, 


, $27 


$25 


$27, 


$28, 


$2a, 


$2c, 


, $22 


$23 


$25, 


$le, 


$le, 


$lb, 


, $16 


$19 


$18, 


$16, 


$18, 


$14, 


, $19 


$lb 


$lb, 


$20, 


$lb, 


$lc, 


, $19 


$lb 


$19, 


$14, 


$12, 


$14, 


, $10 


$19 


$le, 


$16, 


$14, 


$16, 



$12 
$19 
$16 
$12 
$12 
$12 
$28 
$25 
$25 
$25 
$25 
$25 
$2c 
$lb 
$25 
$25 
$28 
$2a 
$2a 
$2f 
$le 
$2c 
$25 
$28 
$23 
$27 
$25 
$25 
$27 
$22 
$2f 
$22 
$29 
$2a 
$19 
$16 
$12 
$2c 
$2f 
$2e 
$29 
$22 
$25 
$22 
$25 
$22 
$22 
$2a 
$28 
$2a 
$2a 
$2f 
$23 
$25 
$25 
$23 
$27 
$2e 
$12 
$0f 
$14 
$le 
$lb 
$0a 
$16 
$17 
$19 
$0f 
$14 
$20 
$20 
$lc 
$19 
$lb 
$21 
$27 
$2a 
$14 
$16 
$0b 
$0d 
$27 
$28 
$23 
$2a 
$lb 
$14 
$20 
$19 
$17 



24 



.byte 


$12 


$10 


$12 


$0b 


$0d 


$23, 


$21 


$20 




.byte 


$21 


$20 


$le 


$20 


$22 


$23, 


$25 


$23 




.byte 


$22 


$23 


$22 


$20 


$22 


$le, 


$22 


$25 




.byte 


$22 


$le 


$22 


$12 


$17 


$12, 


$17 


$12 




.byte 


$16 


$12 


$16 


$0f 


$14 


$0f, 


$14 


$0f 




.byte 


$12 


$0f 


$12 


$0b 


$10 


$0b, 


$10 


$0b 




.byte 


$0f 


$0b 


$0f 


$25 


$27 


$28, 


$27 


$25 




.byte 


$27 


$25 


$23 


$le 


$20 


$22, 


$20 


$le 




.byte 


$20 


$le 


$lc 


$17 


$00 


$le, 


$00 


$25 




.byte 


$27 


$25 


$27 


$28 


$27 


$25, 


$23 


$22 




.byte 


$27 


$22 


$27 


$25 


$2a 


$25, 


$2a 


$28 




.byte 


$2a 


$28 


$2a 


$25 


$27 


$25, 


$27 


$22 




.byte 


$27 


$22 


$27 


$25 


$2a 


$25, 


$2a 


$28 




.byte 


$2a 


$28 


$2a 


$25 


$27 


$25, 


$27 


$22 




.byte 


$27 


$22 


$27 


$25 


$27 


$28, 


$25 


$le 




.byte 


$22 


$23 


$27 


$23 


$20 


$le, 


$20 


$le 




.byte 


$lc 


$17 


$00 














len2 = * 












; note 


luration for voice 2 


.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$04 


$04, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$04 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$04 


$04 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$02 


$02 


$04, 


$02 


$01 




.byte 


$03 


$02 


$02 


$01 


$01 


$02, 


$02 


$02 




.byte 


$02 


$04 


$01 


$01 


$01 


$01, 


$02 


$02 




.byte 


$02 


$04 


$02 


$02 


$01 


$01, 


$02 


$02 




.byte 


$01 


$01 


$01 


$01 


$02 


$02, 


$02 


$01 




.byte 


$01 


$02 


$02 


$02 


$02 


$04, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$02 


$02 




.byte 


$04 


$04 


$01 


$01 


$01 


$01, 


$02 


$04 




.byte 


$02 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$02 


$04 


$02 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$02 


$02, 


$01 


$01 




.byte 


$01 


$01 


$02 


$02 


$01 


$01, 


$01 


$01 




.byte 


$02 


$02 


$02 


$02 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$02 


$02 


$02 


$04 


$02 


$02, 


$01 


$01 




.byte 


$02 


$02 


$01 


$01 


$01 


$01, 


$02 


$02 




.byte 


$02 


$01 


$01 


$02 


$02 


$02, 


$02 


$04 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$06 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$04 


$01, 


$01 


$01 




.byte 


$01 


$02 


$02 


$02 


$04 


$02, 


$02 


$01 




.byte 


$01 


$02 


$02 


$02 


$02 


$04, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$04 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$02 




.byte 


$02 


$02 


$04 


$02 


$02 


$01, 


$01 


$02 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$02 


$02 


$02 


$02 


$02, 


$02 


$02 




.byte 


$02 


$04 


$04 


$02 


$02 


$02, 


$02 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$02, 


$02 


$02 




.byte 


$02 


$02 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$02 


$02 


$02 


$02 


$02 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$02 


$02 


$02, 


$02 


$02 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 




.byte 


$01 


$01 


$01 


$01 


$01 


$01, 


$01 


$01 





25 



.byte $01 

.byte $01 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $01 

.byte $01 

.byte $02 

.byte $01 

.byte $01 

.byte $02 

.byte $02 

.byte $02 

.byte $01 

.byte $01 

.byte $01 

.byte $01 

.byte $01 

.byte $01 

.byte $01 

.byte $01 

.byte $02 

.byte $04 



, $01 


$01, 


, $01 


$01, 


, $02 


$02, 


, $04 


$04, 


, $02 


$02, 


, $02 


$02, 


, $02 


$02, 


, $08 


$01, 


, $04 


$02, 


, $04 


$02, 


, $02 


$04, 


, $02 


$02, 


, $02 


$02, 


, $02 


$02, 


, $02 


$02, 


, $02 


$04, 


, $02 


$02, 


, $04 


$02, 


, $02 


$04, 


, $02 


$01, 


, $02 


$02, 


, $01 


$01, 


, $02 


$02, 


, $01 


$01, 


, $01 


$01, 


, $02 


$01, 


, $01 


$01, 


, $02 


$02, 


, $02 


$02, 


, $02 


$02, 


, $01 


$01, 


, $01 


$01, 


, $01 


$01, 


, $01 


$01, 


, $01 


$01, 


, $01 


$01, 


, $01 


$01, 


, $01 


$01, 


, $04 


$04, 


, $08 


$00 



$01, 
$01, 
$02, 
$04, 
$02, 
$02, 
$02, 
$01, 
$02, 
$02, 
$02, 
$02, 
$02, 
$02, 
$01, 
$02, 
$02, 
$01, 
$02, 
$01, 
$02, 
$01, 
$02, 
$02, 
$02, 
$01, 
$02, 
$02, 
$02, 
$01, 
$01, 
$04, 
$01, 
$01, 
$01, 
$01, 
$01, 
$01, 
$02, 



$01 
$01 
$04 
$04 
$02 
$02 
$02 
$01 
$01 
$01 
$02 
$02 
$02 
$02 
$01 
$02 
$02 
$01 
$02 
$01 
$02 
$01 
$02 
$02 
$01 
$02 
$02 
$02 
$02 
$01 
$01 
$04 
$01 
$01 
$01 
$01 
$01 
$01 
$02 



, $01, 


$01, 


, $01, 


$01, 


, $04, 


$04, 


, $02, 


$02, 


, $02, 


$02, 


, $02, 


$02, 


, $02, 


$02, 


, $01, 


$02, 


, $01, 


$02, 


, $01, 


$02, 


, $02, 


$02, 


, $02, 


$02, 


, $02, 


$02, 


, $02, 


$02, 


, $01, 


$01, 


, $01, 


$01, 


, $02, 


$04, 


, $01, 


$01, 


, $02, 


$02, 


, $01, 


$02, 


, $02, 


$02, 


, $01, 


$01, 


, $01, 


$01, 


, $02, 


$01, 


, $01, 


$06, 


, $01, 


$01, 


, $02, 


$02, 


, $02, 


$02, 


, $02, 


$02, 


, $01, 


$01, 


, $01, 


$01, 


, $04, 


$04, 


, $01, 


$01, 


, $01, 


$01, 


, $01, 


$01, 


, $01, 


$01, 


, $01, 


$01, 


, $01, 


$01, 


, $04, 


$04, 



$01 
$01 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$01 
$01 
$01 
$01 
$01 
$02 
$02 
$02 
$01 
$01 
$01 
$01 
$01 
$01 
$01 
$01 
$02 
$04 



note3 

.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 



$0b 


$0b 


$0a, 


$04 


$04 


$06, 


$08 


$08 


$0d, 


$19 


$0d 


$06, 


$04 


$03 


$03, 


$06 


$0b 


$0b, 


$19 


$16 


$19, 


$16 


$12 


$16, 


$12 


$0f 


$12, 


$06 


$06 


$00, 


$08 


$0a 


$0b, 


$12 


$12 


$12, 


$le 


$le 


$le, 


$12 


$12 


$12, 


$10 


$0f 


$10, 


$17 


$23 


$25, 


$25 


$27 


$28, 


$25 


$22 


$23, 


$23 


$25 


$23, 


$17 


$17 


$16, 


$10 


$10 


$12, 


$27 


$25 


$23, 


$23 


$25 


$22, 


$22 


$23 


$20, 


$23 


$22 


$25, 


$22 


$22 


$22, 


$0f 


$0d 


$0d, 


$0b 


$0a 


$08, 


$20 


$le 


$20, 


$22 


$20 


$22, 


$25 


$le 


$12, 


$11 


$14 


$0f, 


$0d 


$11 


$0b, 


$0a 


$0d 


$08, 


$2a 


$29 


$29, 


$2a 


$2c 


$2a, 


$29 


$2a 


$29, 


$23 


$25 


$23, 


$0d 


$0d 


$0d, 


$0d 


$0d 


$0d, 


$19 


$19 


$19, 


$12 


$23 


$25, 


$27 


$25 


$23, 


$le 


$lb 


$17, 


$12 


$12 


$10, 


$lc 


$le 


$17, 


$22 


$23 


$22, 


$20 


$22 


$20, 



$0a, 
$06, 
$0d, 
$0a, 
$08, 
$17, 
$14, 
$10, 
$0d, 
$00, 
$10, 
$12, 
$le, 
$0b, 
$12, 
$27, 
$27, 
$25, 
$25, 
$16, 
$12, 
$25, 
$23, 
$22, 
$le, 
$12, 
$0b, 
$06, 
$ld, 
$23, 
$16, 
$12, 
$0f, 
$08, 
$27, 
$29, 
$27, 
$22, 
$0d, 
$0d, 
$19, 
$27, 
$25, 
$17, 
$10, 
$00, 
$20, 
$lf, 



$08 
$0b 
$05 
$0d 
$08 
$lb 
$17 
$14 
$0d 
$01 
$10 
$12 
$le 
$0d 
$10 
$28 
$25 
$27 
$22 
$14 
$0b 
$28 
$27 
$25 
$20 
$12 
$0b 
$00 
$le 
$25 
$12 
$0f 
$0b 
$08 
$2c 
$29 
$27 
$20 
$19 
$0d 
$12 
$28 
$23 
$16 
$12 
$23 
$22 
$20 



, $08, 


$06, 


, $0b, 


$03, 


, $05, 


$06, 


, $06, 


$06, 


, $01, 


$01, 


, $17, 


$lb, 


, $14, 


$17, 


, $10, 


$14, 


, $0d, 


$04, 


, $03, 


$04, 


, $10, 


$10, 


, $12, 


$12, 


, $le, 


$le, 


, $0f, 


$10, 


, $12, 


$06, 


, $27, 


$25, 


, $23, 


$25, 


, $28, 


$27, 


, $23, 


$le, 


, $14, 


$12, 


, $17, 


$27, 


, $28, 


$27, 


, $27, 


$25, 


, $le, 


$20, 


, $22, 


$23, 


, $H, 


$11, 


, $0d, 


$0d, 


, $22, 


$20, 


, $20, 


$22, 


, $27, 


$29, 


, $16, 


$11, 


, $12, 


$0d, 


, $0f, 


$0a, 


, $08, 


$0d, 


, $2a, 


$2a, 


, $2a, 


$29, 


, $29, 


$27, 


, $22, 


$20, 


, $19, 


$19, 


, $0d, 


$0d, 


, $lb, 


$17, 


, $27, 


$25, 


, $25, 


$22, 


, $16, 


$14, 


, $12, 


$0b, 


, $25, 


$23, 


, $23, 


$22, 


, $22, 


$23, 



ilue 
$06 
$03 
$17 
$04 
$06 
$16 
$12 
$0f 
$06 
$06 
$12 
$le 
$12 
$12 
$0b 
$23 
$23 
$25 
$lb 
$12 
$28 
$25 
$23 
$22 
$22 
$0f 
$12 
$le 
$23 
$2a 
$14 
$11 
$0d 
$29 
$29 
$27 
$25 
$le 
$19 
$0d 
$19 
$23 
$23 
$14 
$lb 
$22 
$20 
$25 



for voice 3 



26 



.byte $23 

.byte $25 

.byte $12 

.byte $0f 

.byte $00 

.byte $14 

.byte $00 

.byte $14 

.byte $0d 

.byte $20 

.byte $lc 

.byte $19 

.byte $15 

.byte $lc 

.byte $20 

.byte $28 

.byte $11 

.byte $13 

.byte $14 

.byte $16 

.byte $23 

.byte $22 

.byte $25 

.byte $17 

.byte $0d 

.byte $20 

.byte $00 

.byte $10 

.byte $06 

.byte $0d 

.byte $0a 

.byte $12 

.byte $0a 

.byte $17 

.byte $12 

.byte $12 

.byte $12 

.byte $10 

len3 = * 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $04 

.byte $01 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $01 

.byte $02 

.byte $02 

.byte $01 

.byte $02 

.byte $02 

.byte $02 

.byte $01 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $01 

.byte $01 

.byte $01 

.byte $02 

.byte $02 

.byte $02 

.byte $08 

.byte $04 

.byte $02 

.byte $02 

.byte $01 

.byte $01 

.byte $01 

.byte $02 

.byte $02 



, $22 


$20, 


, $22 


$23, 


, $12 


$10, 


, $0f 


$14, 


, $16 


$16, 


, $14 


$00, 


, $00 


$00, 


, $12 


$12, 


, $0f 


$0f, 


, $lb 


$le, 


, $17 


$lb, 


, $14 


$17, 


, $10 


$lc, 


, $23 


$21, 


, $2c 


$2a, 


, $23 


$20, 


, $14 


$11, 


, $16 


$13, 


, $0b 


$14, 


, $0d 


$16, 


, $25 


$23, 


, $23 


$22, 


, $27 


$28, 


, $17 


$17, 


, $10 


$10, 


, $12 


$00, 


, $0f 


$12, 


, $11 


$19, 


, $0b 


$0f, 


, $14 


$0b, 


, $10 


$14, 


, $0d 


$0d, 


, $0b 


$0d, 


, $10 


$10, 


, $12 


$12, 


, $12 


$12, 


, $0b 


$0d, 


, $12 


$10, 



$27, 
$20, 
$10, 
$00, 
$16, 
$13, 
$0f, 
$10, 
$08, 
$lb, 
$17, 
$14, 
$le, 
$20, 
$28, 
$17, 
$14, 
$16, 
$0b, 
$0d, 
$25, 
$20, 
$27, 
$17, 
$12, 
$00, 
$17, 
$14, 
$0b, 
$14, 
$10, 
$0d, 
$0f, 
$10, 
$12, 
$12, 
$0f, 
$12, 



$25 


$23 


$25, 


$lb 


$17 


$14, 


$0f 


$0f 


$0d, 


$0c 


$0c 


$0c, 


$16 


$00 


$14, 


$13 


$13 


$13, 


$0f 


$0d 


$0d, 


$10 


$0b 


$0d, 


$00 


$lc 


$20, 


$le 


$19 


$lc, 


$lb 


$15 


$19, 


$17 


$15 


$15, 


$20 


$21 


$20, 


$21 


$20 


$21, 


$2a 


$28 


$2a, 


$10 


$14 


$10, 


$12 


$16 


$12, 


$14 


$0b 


$14, 


$15 


$0d 


$15, 


$17 


$00 


$27, 


$22 


$23 


$25, 


$25 


$23 


$22, 


$23 


$le 


$20, 


$12 


$12 


$12, 


$12 


$18 


$18, 


$16 


$00 


$12, 


$0f 


$10 


$14, 


$11 


$12 


$0d, 


$0f 


$16 


$0d, 


$0b 


$12 


$0a, 


$14 


$0f 


$12, 


$10 


$12 


$12, 


$10 


$12 


$14, 


$10 


$12 


$12, 


$12 


$12 


$12, 


$12 


$12 


$12, 


$10 


$12 


$10, 


$12 


$0b 


$00 



, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$04 


$04 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$04 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $04 


$04 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $01 


$01 


$01 


$01 


$02 


$02, 


, $01 


$01 


$02 


$02 


$02 


$01, 


, $02 


$01 


$01 


$01 


$01 


$02, 


, $01 


$01 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$04 


$04 


$04, 


, $01 


$01 


$02 


$04 


$02 


$01, 


, $02 


$02 


$02 


$04 


$02 


$01, 


, $02 


$02 


$02 


$02 


$01 


$01, 


, $02 


$02 


$01 


$01 


$01 


$01, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$04 


$06 


$04 


$02, 


, $01 


$02 


$02 


$01 


$01 


$01, 


, $02 


$02 


$01 


$01 


$02 


$02, 


, $04 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$06, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $01 


$01 


$01 


$01 


$01 


$01, 


, $01 


$01 


$01 


$01 


$01 


$01, 


, $01 


$01 


$01 


$01 


$01 


$01, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $01 


$01 


$01 


$01 


$02 


$02, 


, $02 


$02 


$01 


$01 


$02 


$02, 


, $04 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$05, 


, $01 


$04 


$0c 


$01 


$01 


$01, 


, $01 


$01 


$01 


$01 


$01 


$01, 


, $01 


$01 


$01 


$01 


$01 


$01, 


, $02 


$02 


$04 


$02 


$02 


$01, 


, $02 


$02 


$02 


$02 


$02 


$02, 



$23 
$14 
$0d 
$0c 
$14 
$00 
$0b 
$0f 
$lc 
$19 
$15 
$15 
$le 
$le 
$27 
$14 
$16 
$0b 
$0d 
$25 
$23 
$23 
$22 
$0d 
$19 
$00 
$17 
$0b 
$16 
$12 
$0f 
$12 
$16 
$12 
$12 
$12 
$0f 



note duration for voice 3 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$04 
$01 
$01 
$02 
$04 
$02 
$01 
$01 
$01 
$01 
$02 
$02 
$02 
$02 
$01 
$02 
$02 
$02 
$02 
$02 
$02 
$01 
$01 
$01 
$02 
$02 
$02 
$02 
$02 
$02 
$01 
$01 
$01 
$01 
$01 
$02 



27 



.byte $02 

.byte $02 

.byte $08 

.byte $02 

.byte $08 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $01 

.byte $02 

.byte $02 

.byte $02 

.byte $08 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 

.byte $02 



, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$04 


$04 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$08 


$02, 


, $02 


$08 


$02 


$02 


$02 


$02, 


, $08 


$08 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$04 


$04 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $08 


$01 


$01 


$01 


$01 


$02, 


, $04 


$02 


$02 


$01 


$01 


$02, 


, $04 


$02 


$02 


$01 


$01 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$04 


$06 


$04, 


, $01 


$01 


$02 


$02 


$02 


$02, 


, $02 


$04 


$02 


$02 


$04 


$02, 


, $01 


$01 


$02 


$02 


$02 


$04, 


, $02 


$02 


$02 


$02 


$02 


$04, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$08 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $02 


$02 


$02 


$02 


$02 


$02, 


, $04 


$04 


$04 


$04 


$08 


$00 



$02 
$02 
$02 
$08 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$01 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 
$02 



At this point we can say that the rip could be done directly in the monitor, without generating a 
source of the rip. However, as the code is in low and the data is in high memory, we will obtain a 
big file (without a relocation of the player code). 

As we present the code, just a few words about the player. As you see, each voice have his 
control register and the address of note pitch and duration stored in a local table. Two extra bytes 
are used for controlling the velocity of the reproduction that are set by the BASIC program during 
the initialization phase. 

No special effect are used for each instrument: however the sound is pretty good. 



Testcard 



The Testcard program is probably one of the 
first demo ever done. It has sprites animation 
and music, all created by a BASIC program. 

If you listen to the sound, it is quite simple: 
nothing comparable to Sheba. 

This is due to the use of BASIC even for the 
sound generation of the two voice used togeth- 
er. However the code still use a portion of ma- 
chine code routine, but while in Sheba the ma- 
chine code manages both note pitch and dura- 
tion, here the machine code manage only pitch 
generation, while duration is done using Tl vari- 
able by the BASIC program. 
Before goes ahead, it is the time to get a look at the BASIC source: the bold part it the one that 
involve the sound generation. 
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IASIC code 



5 REM space for sprites x 

10 REM space for sprites x 

15 REM space for sprites x 

20 REM space for sprites x 

25 REM space for sprites x 

30 REM space for sprites x 

35 REM space for sprites x 

40 REM space for sprites x 

45 REM space for sprites x 

50 REM space for sprites x 

55 REM space for sprites x 

60 REM space for sprites x 

65 REM space for sprites x 

70 REM space for sprites x 

75 REM space for sprites x 

90 DIM sp(10) ,n(60) ,v% (500,3) ,w% (500,3) ,c$ (16) 

95 GOTO 10210 : skipround music player AND main loop which are time-critical 

100 REM play a tune (nv voices, kk notes in part 1 

105 FOR j=l TO nv:p(j)=0:d(j)=0:t (j)=ti:NEXT j 

110 FOR j=l TO nv 

115 IF t(j)>ti THEN 130 

120 t(j)=t(j)+d(j) :x=v%(p(j), j) 

125 y=w%(p(j), j) :p(j)=p(j)+l:d(j)=y*dv:m(j)=n(x) 

130 NEXT j 

140 f=0 

145 FOR j=l TO nv 

150 IF t(j)<=ti THEN sp ( j+7) =m( j) : f=l 

155 NEXT j 

160 IF f=0 THEN 145 

165 IF p(l)<=kk THEN 110 

170 RETURN 

500 GOTO 5000 : REM pointer to moved code 

2000 REM golden rain(l) 

2005 sp(7)=a+64080 

2010 ON cw GOTO 2020,2040,2045,2050 

2020 IF RND(0)>0.04 THEN 2100 

2030 cw=2:cn=50 :POKE 2040,34:POKE v+21 , PEEK (v+21 ) +1 : POKE v+39, 1+7*RND ( ) 

2035 sp(10)=no:GOTO 2100 

2040 cw=3:POKE 2040,35:GOTO 2100 

2045 cw=4:POKE 2040, 36: GOTO 2100 

2050 cw=2:POKE 2040 , 34 : cn=cn-l 

2060 IF cn=0 THEN cw=l:POKE v+21 , PEEK (v+21 ) -1 

2100 REM ground explosions 

2110 ON gr GOTO 2120,2140,2145,2150 

2120 IF RND(0)>0.1 THEN 2540 

2130 gr=2:POKE 2041,37:POKE v+21 , PEEK (v+21 ) +2 : POKE v+40 , 1+7*RND (0 ) 

2135 sp (10)=no:GOTO 2540 

2140 gr=3:POKE 2041,38:GOTO 2540 

2145 gr=4:POKE 2041,39:GOTO 2540 

2150 gr=l:POKE v+21 , PEEK (v+21 ) -2 

2540 REM rocket (2) 

2610 ON qa GOTO 2 620,2 670,2 690,2710,2730 

2620 IF RND(0)>0.05 OR ba=4 THEN 2740 

2630 qy=250 :qx=INT (350*RND (0) ) :qv=-19 

2640 qh=INT ( (350-qx-300*RND (0) ) /20) :POKE 2045,33:POKE v+44 , 1+7*RND ( ) 

2650 sp (5) =a+256*qx+qy 

2660 POKE v+21, PEEK (v+21) +32 :qa=2 : GOTO 2740 

2 67 qx=qx+qh : qy=qy+qv : qv=qv+l 

2680 sp (5)=a+256*qx+qy:IF qv=3 THEN qa=3 : sp ( 10 ) =no : qn=2 : POKE 2045,37:GOTO 2740 

2690 qn=qn-l:IF qn=0 THEN qn=3 : qa=4 : POKE 2045,38 

2700 GOTO 2740 

2710 qn=qn-l:IF qn<>0 THEN GOTO 2740 

2715 qn=5:qa=5:POKE 2045,39:GOTO 2740 

2720 sp(5)=sp(5)-ll*257:GOTO 2740 

2730 qn=qn-l:IF qn<>0 THEN 2740 

2732 qa=l:POKE v+21, PEEK (v+21 ) -32 
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2735 
2740 
2810 
2820 
2830 
2835 
2840 
2850 
2860 
2865 
2867 
2870 
2880 
2882 
2884 
2886 
2890 
2900 
3000 
3010 
3015 
3020 
3030 
3500 
3505 
3510 
3515 
3520 
3525 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3700 
3710 
3720 
4000 
4010 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
5000 
5010 
5020 
5030 
5040 
5050 
5060 



=2:POKE 2046,42 :POKE v+23, PEEK (v+23) +64 



v+29,PEEK(v+29) -64 



-64: 



GOTO 
pl + 1 



3000 



POKE v+2 3, PEEK (v+2 3) AND 223:POKE v+2 9, PEEK (v+2 9) AND 223 

REM balloon 

ON ba GOTO 2820,2850,2870,2882 

IF RND(0)>0.02 THEN 3000 

sp(6)=a+350*256+80:bp=350 :ba= 

POKE v+29,PEEK(v+29) +64 

POKE v+45, 1+7*RND (0) :POKE v+21 , PEEK (v+21 ) +64 : GOTO 3000 

bp=bp-l :sp(6)=sp(6)-256 

IF bp=0 THEN POKE v+21 , PEEK (v+21 ) -64 :ba=l 

IF bp=0 THEN POKE v+23, PEEK (v+23) -64 : POKE 

GOTO 3000 

bn=bn-l:IF bn<>0 THEN 3000 

ba=4:POKE 2046,41:POKE v+45, 1 : bp=80 : POKE v+21 , PEEK (v+21 ) 

sl = 0:s2 = 0:IF tKtq THEN sl=n (v% (pi, 1 ) ) : tl=tl+dv*w% (pi , 1 ) :pl = 

IF t2<tq THEN s2=n (v% (p2, 2 ) ) : t2=t2+dv*w% (p2 , 2 ) :p2=p2+l 

sp(8)=sl:sp(9)=s2 

bp=bp+l:IF bp=213 THEN POKE v+21 , PEEK (v+21 ) -64 :ba=l 

sp ( 6) =sp ( 6) +1 

p=PEEK(v+30) AND 96 : IF (p<>96 ) OR (ba<>2 ) OR (qa<>2 ) THEN 3500 

REM rocket /balloon collision 

pl=0 :p2=0 :tl=tq+5 : t2=tl 

qa=3:qn=2:POKE 2045, 39: sp (10)=no:bn=8 :ba=3:POKE v+21 , PEEK (v+21 ) -64 

sp (6)=sp (6) +1028 :POKE v+23, PEEK (v+23) -64 : POKE v+29, PEEK (v+29) -64 : GOTO 2000 

tq=tq+l:POKE v+21 , PEEK (v+21 ) OR 128:IF tq<500 OR baol THEN 2000 

FOR j=l TO 1000:NEXT j 

FOR j=0 TO 10 

POKE v+21, 

PRINT"<CLR> 

PRINT 

PRINT" by 

PRINT" 

PRINT: PRINT" 

GOSUB 5040:GOSUB 100 

PRINT: PRINT" next, an 

GOSUB 5040:GOSUB 100 

RESTORE: 

PRINT: PRINT "the whole 

FOR j=832 TO 1000:READ 



sp( j)=0:POKE vv+24, 

finally, two pieces 

wolfgang amadeus" 
mo z a r t " 

andante" 



first, 



allegro 



program will 
a: NEXT j 



now be repeated" 



vv+ll,0:POKE vv+18,0:POKE vv+24, 



POKE vv+4, 0:POKE 

GOTO 10290 

c$(l)=" <BLACKXRVS ON> 

c$(2)=" <WHITEXRVS ON> 

c$(3)=" <REDXRVS ON> 

c$(4)=" <CYANXRVS ON> 

c$(5)=" <PURPLEXRVS ON> 

c$(6)=" <GREENXRVS ON> 

c$(7)=" <BLUEXRVS ON> 

c$(8)=" <YELLOWXRVS ON> 

c$(9)=" <ORANGEXRVS ON> 

c$(10)=" <BROWNXRVS ON> 

c$(ll)=" <LIGHT REDXRVS 

c$(12)=" <DARK GREYXRVS 

c$(13)=" <GREYXRVS ON> 

c$(14)=" <LIGHT GREENXRVS 

c$(15)=" <LIGHT 

c$(16)=" <LIGHT 

POKE 53280, l:POKE 

PRINT"<CLR> hello 

PRINT 

PRINT" here are some bars of colour 

PRINT" adjust your set" 

PRINT 

GOTO 10300 

REM set up notes in n 

a=2 A 31+33*2 A 16:q=720:p=2 A (l/12) 

FOR jj=l TO 60: n ( j j ) =a+q : q=q*p : NEXT 

REM enter here if n already set up 

w=212*256:n(5)=a 

READ nv, ns, at, d, s, dv 

FOR jj=l TO nv:pp( j j)=0:NEXT jj 



ON> 
ON> 

<RVS 
ON> 
BLUEXRVS ON> 
GREYXRVS ON> 
53281, 6:POKE 208*256+21,0 
welcome to the <RVS ON>cbm 



<RVS OFFXWHITE> black" 
<RVS OFFXWHITE> white" 
<RVS OFFXWHITE> red" 
<RVS OFFXWHITE> cyan" 

<RVS OFFXWHITE> purple" 
<RVS OFFXWHITE> green" 
<RVS OFFXWHITE> blue" 

<RVS OFFXWHITE> yellow" 
<RVS OFFXWHITE> orange" 
<RVS OFF><WHITE> brown" 

<RVS OFFXWHITE> light red" 
<RVS OFFXWHITE> dark gray" 
OFFXWHITE> medium gray" 
<RVS OFFXWHITE> light green" 
<RVS OFFXWHITE> light blue" 
<RVS OFFXWHITE> light gray" 



commodore 64<RVS OFF>" 



to help" 
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5065 FOR kk=l TO ns 

5070 READ dn 

5075 IF dn>l THEN FOR jj=l TO nv:pq ( j j) =pp ( j j) :NEXT jj 

5078 FOR jj=l TO nv 

5080 READ a$:READ b$ 

5090 FOR tt=l TO LEN(a$) 

5100 v%(pp(jj) , jj)=ASC(MID$(a$,tt,l) )-35 

5110 w%(pp(jj), jj)=ASC(MID$(b$,tt,l))-48:pp(jj)=pp(jj)+l 

5120 NEXT tt, jj 

5121 IF dn=l THEN 5129 :REM copy repeated bar 

5122 FOR jj=l TO nv 

5123 pr=pp(jj) 

5124 v%(pp(jj), jj)=v%(pq(jj), jj) :w%(pp(jj), j j) =w% (pq( j j) , jj) 

5125 pq(jj)=pq(jj)+l:pp(jj)=PP(jj)+l 

5126 IF pq(jj)<pr THEN 5124 

5127 NEXT jj 

5129 NEXT kk 

5130 kk=pp(l)-l 

5140 FOR jj=0 TO nv-1 

5150 POKE w+7*jj+5,16*at+d 

5160 POKE w+7*jj+6,16*s 

5170 NEXT jj 

5180 POKE w+24,15 

5190 RETURN 

6100 REM machine code routine to service sprites and sound generators 

6110 REM it updates their position every interrupt 

6120 DATA 165,47,133,251,165,48,133,252,160,0,177,251,201,83,208,8,200,177,251 

6130 DATA 201,80,240,38,136,200,200,177,251,133,253,200,177,251,133,254,24,165,251 

6140 DATA 101,253,133,251,165,252,101,254,133,252,197,50,208,212,165,251 

6150 DATA 197,49,208,206,76,49,234 

6160 DATA 152,24,105,6,168,162,0,200,200,24,177,251,41,1,240,1,56,102,255,200 

6170 DATA 177,251,157,0,208,200,177,251,157,1,208,232,232,200,224,16,208,225 

6180 DATA 165,255,141,16,208 

6182 DATA 162,0,200,200,177,251,240,29,169,0,157,4,212,177,251,157,4,212,169,0 

6184 DATA 145,251,200,177,251,157,1,212,200,177,251,157,0,212,76,208,3 

6186 DATA 200,200,200,138,24,105,7,170,224,21,208,209,76,49,234 

6190 REM insert wedge (code at 988) 

6200 DATA 120,169,64,141,20,3,169,3,141,21,3,88,96 

6205 REM sprite data- bright dot 

6210 DATA 0,0,0,0,0,0,0,0,0 

6215 DATA 0,0,0,0,0,0,0,0,0 

62 2 DATA 0,0,0,0,0,0,0,24,0 

6225 DATA 0,60,0,0,60,0,0,24,0 

6230 DATA 0,0,0,0,0,0,0,0,0 

6235 DATA 0,0,0,0,0,0,0,0,0 

62 4 DATA 0,0,0,0,0,0,0,0,0 

6300 REM golden rain(l) 

6310 DATA 0,32,0,8,132,136,18,0,2 

6315 DATA 32,162,164,9,16,14 6,48,105,40 

6320 DATA 64,146,2,0,170,160,148,100,0 

6325 DATA 0,90,2,72,36,144,0,124,8 

6330 DATA 66,124,32,0,124,0,144,124,4 

6335 DATA 66,124,136,0,124,0,32,124,36 

6340 DATA 0,124,0,77,125,18,0,124,0 

6350 REM golden rain (2) 

6360 DATA 0,64,0,17,2,68,36,0,1 

6365 DATA 65,33,82,16,0,0,33,105,8 

6370 DATA 16,146,32,1,18,2,4,36,160 

6375 DATA 144,72,0,0,36,2,72,124,144 

6380 DATA 0,124,8,66,124,33,0,124,0 

6385 DATA 144,124,4,66,124,136,32,124,0 

6390 DATA 0,124,4,5,124,0,72,125,18 

6400 REM golden rain (3) 

6410 DATA 0,128,0,34,1,34,72,64,4 

6415 DATA 130,16,161,16,128,4,2,36,128 

6420 DATA 16,146,8,32,8,32,2,164,2 

6425 DATA 4,72,160,144,36,0,0,124,2 

6430 DATA 72,124,144,0,124,8,66,124,33 

6440 DATA 0,124,0,144,124,4,66,124,136 
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6445 DATA 32,124,0,0,124,4,5,124,0 

6450 REM explosion (1) 

6455 DATA 0,0,0,0,0,0,0,0,0 

6460 DATA 0,0,0,0,0,0,0,0,0 

6465 DATA 0,0,0,0,56,0,0,198,0 

6470 DATA 1,147,0,3,73,128,2,16,192 

6475 DATA 3,66,192,1,137,128,0,195,0 

6480 DATA 0,124,0,0,0,0,0,0,0 

6485 DATA 0,0,0,0,0,0,0,0,0 

6500 REM explosion (2) 

6505 DATA 0,0,0,0,0,0,0,0,0 

6510 DATA 0,0,0,0,16,0,0,16,128 

6515 DATA 8,57,0,4,198,0,3,33,128 

6520 DATA 6,0,192,12,72,224,12,4,120 

6525 DATA 62,0,96,6,16,192,3,36,192 

6530 DATA 5,129,160,8,254,16,0,48,0 

6535 DATA 0,32,0,0,32,0,0,0,0 

6550 REM explosion (3) 

6555 DATA 0,16,0,0,16,0,0,16,16 

6560 DATA 73,16,32,32,17,64,18,20,128 

6565 DATA 8,17,64,68,2,16,2,84,0 

6570 DATA 17,9,8,32,0,32,0,72,127 

6575 DATA 254,0,0,0,2,4,18,32,72 

6580 DATA 4,36,32,8,160,144,18,32,8 

6585 DATA 32,33,4,64,32,2,0,32,0 

6600 REM moon 

6605 DATA 252,0,0,63,240,0,15,252,0 

6 610 DATA 7,255,128,3,255,240,1,255,248 

6615 DATA 0,255,252,0,127,254,0,63,254 

6620 DATA 0,63,255,0,63,255,0,63,255 

6625 DATA 0,63,255,0,127,254,0,127,254 

6630 DATA 0,255,252,1,255,248,3,255,224 

6635 DATA 7,255,128,31,248,0,254,0,0 

6650 REM parachute 

6655 DATA 0,254,0,15,255,224,62,251,248 

6660 DATA 12 6,250,252,254,2 6,254,254,216,12 6 

6665 DATA 12 6,30,252,127,255,252,32,0,8 

6670 DATA 16,0,16,8,0,32,4,0,64 

6 67 5 DATA 2,0,128,1,1,0,0,130,0 

6 680 DATA 0,84,0,0,124,0,0,56,0 

6685 DATA 0,40,0,0,108,0,0,0,0 

6700 REM commodore balloon 

6705 DATA 0,127,0,1,255,192,3,255,224 

6710 DATA 3,231,224,7,217,240,7,223,240 

6715 DATA 7,217,240,3,231,224,3,255,224 

6720 DATA 3,255,224,2,255,160,1,127,64 

6725 DATA 1,62,64,0,156,128,0,156,128 

6730 DATA 0,73,0,0,73,0,0,62,0 

6735 DATA 0,62,0,0,62,0,0,28,0 

7500 REM gavotte by g.f.handel 

7502 DATA 3,2,0,10,0,15 

7505 DATA 1 

7510 DATA" (onoqo jsqstsqovtsqoqonoqo jsqstsqovtsqoq" 

7520 DATA"811112211112222222241111221111222222224" 

7530 DATA" ( ( j jlolnolij ( j jlolnoli j" 

7540 DATA" 88442211222484422112224" 

7550 DATA" (7; >cbcecb@gec<@><; 97; >cbcecb@gec<@>" 

7560 DATA"842211112222222211114221111222222224" 

7565 DATA 2 

7570 DATA" jhglhge jgechgecbcbceohgh jgeghe jcbcegec" 

7580 DATA"211421142112222411112211111111221111224" 

7590 DATA"cgece (ecbc (cc@> ( ( (ccbcecb; " 

7600 DATA"42112221122222288621111224" 

7610 DATA"; 7496427; 479; ><; 9; 79bc7><;@<>27" 

7620 DATA"4224211222222222222222211222224" 

8000 REM marines march 

8010 DATA 2,2,0,12,0,1 

8015 DATA 1 

8020 DATA" (aehhhhhmhefhhfcaaehhhhhmhefhhfcaml" 

8030 DATA"81122223121122226112222312112222611" 
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8040 DATA" (5599 (9 (9 (9 (9999 (44 (4 (4 (459999 (99 (9 (9 (9 (9999 (44 (4 (4 (459999 ( " 

8050 DATA"81111111111111122111111111111221111111111112211111111111122" 

8055 DATA 1 

8060 DATA" jf jfhjhmljf jmhaehhhhhmhefhhfca" 

8070 DATA"222231211222261122223121122227" 

8080 DATA" ( : (5 ( : (5(9999((: (5(: (5(9999(99(9(9(9(9999(44(4(4(459999" 

8090 DATA"1111111111112211111111111122111111111111221111111111113" 

8500 REM andante 

8510 DATA 2,2,3,11,0,17 

8515 DATA 2 

8520 DATA" (momoqmhhhoqoqrohhhtlmolmvsomltqvtsst (" 

8530 DATA"44111122224111122224111141111111122422" 

8540 DATA" (eheaeheheahmlmolhlololhe (h jghmoooh ( " 

8550 DATA"444111111114111111111111224442222422" 

8595 DATA 2 

8600 DATA"tqrtvroqrtrqoqmrqo (rqomltrqomjvromllm ( " 

8610 DATA"41111411111111224224111141111111122422" 

8620 DATA" (qnj (olhml jomaeah (olh (emj (gh( (a(" 

8630 DATA"22222222222211112422222223122422" 

8700 REM allegro 

8710 DATA 2,2,1,9, 0,10 

8715 DATA 2 

8720 DATA" (qtrqom (mooooqm (mooooqmoqrtvxyvqst (tvxyvstvstvxytxvtvxyvstvst ( " 

8730 DATA"82222242222211422222112111111222242211111111111111111111111142" 

8740 DATA" (mqomhe (ehhhhe (ehhhhe (mlolomomololomomol ( " 

8750 DATA"82222242222224222222448222222222222222242" 

87 95 DATA 2 

8800 DATA "htqvt rot rqmrqomt (qtrqomoqrtvxyxmoqrtqomxy (t (r (o (m (hmmmhqqqmtoqm ( " 

8810 DATA"2626262626444424222222111111118111111118222222224222222222243142" 

8820 DATA" (amjomlhmlk jhfgh (mqomhe (qrotrq(qrotrq(q(o (h (e (<aaa<eeeah<a (" 

8830 DATA 426262626244444422222242222224222222222222224222222222224442"" 

10210 FOR j=832 TO 1000 

1022 READ a: POKE j, a: NEXT j 

10230 SYS(988) 

10240 REM make space for sprites 

10250 a=PEEK(43) +256*PEEK (44 ) 

10260 IF a> 2048+14*64 THEN 10290 

10270 POKE 43,PEEK(a) :POKE 44 , PEEK (a+1 ): GOTO 10250 

10290 GOTO 4000 

10300 FOR j=l TO 10:PRINT c$(j): q0=2048+64 * j : GOSUB 11000:NEXT j 

10305 FOR j=ll TO 16:PRINT c$(j):FOR k=l TO 200:NEXT k, j 

10310 v=208*256 

10312 PRINT" now turn up the volume . . . and wait" 

10315 GOSUB 5000:GOSUB 100 

10318 FOR k=l TO 2000:NEXT k 

10320 POKE 53280, 0:POKE 53281, : PRINT"<CLR>" 

10330 POKE vv+24, 

10340 PRINT "<CLR> <STOP><LIGHT GREY> night falls ....and here is" 

10350 PRINT" a short display of fireworks for you" 

10360 FOR j=l TO 30:POKE 1134+4 60*RND ( ) , 4 6 : FOR k=l TO 100:NEXT k, j 

10400 REM set up main loop 

10405 sp (8) =2 "31 + 2 "16: sp (9) =2 "31 + 2 "16 

10410 a=2"31 :vv=212*256:POKE vv+19,12:POKE vv+20,0 

10 420 sp(0)=a+5 0* 2 5 6+2 : sp ( 1 ) =a+280* 2 5 6 + 180 

10430 sp (7)=a+250*256 + 80:POKE v+46,7:POKE 2047,40:POKE v+21,128 

10440 no=2"31+129*2"16+5000:POKE vv+24, 15 

10450 cw=l:gr=l:qa=l:ba=l: GOSUB 5040:tq=0 

10460 POKE 2042,33:POKE 2043,33: 

10470 POKE v+23, 3:POKE v+29, 3 

10480 GOTO 2000 

11000 REM set up a sprioite in location qO 

11010 FOR jj=0 TO 62 

11020 READ kk 

11030 POKE q0+jj,kk 

11040 NEXT jj 

11050 RETURN 



33 



Machine code rip 




How we can produce a rip of this kind of BASIC program? I must admit that I did not have any 
idea of how to do it, as the main point needed for a rip is not present: the IRQ routine. 

As you probably know, all the players that have not a full C64 environment emulation must use a 
IRQ calling for generating the sound. This is exactly what a standard PSID file use in the play sec- 
tion. 

Without the hint of Warren P. I probably wasn' able to produce the rip. Even if I did not ask the 
permission to Warren to put this peace of email here, I think that this will can help everyone that 
would rip a BASIC program, so I write it anyhow: 

> [...] in Testcard, the machine code only set up and play notes, while duration are controlled 

> by the basic program (using Tl variables). [....] 

It would be difficult to do. However, as you' vestated that the basic program uses Tl variables, it 
could possibly be done. What you would have to do is convert those Tl values to machine code 
data, and have the data read by a machine code routine so it knows to wait X number of cycles 
before progressing on to the next note. This is definitely not very easy. 

Ok now it is more clear. What we have to do, it is to have an IRQ routine that "simulate" the Tl 
timing before apply the needed note values. We else are very lucky, as the code in Sheba is ex- 
actly what we need: it manages the note as done in Testcard and else have a note duration con- 
trolled by IRQ: the minor change is to set the velocity parameter to be correctly set as a Tl timing. 



Testcard demo for introduction to basic 
By Andew Colin (1982) 

The originale song use a Basic/machine 

code for generating music 

This is a machine code port 

The code can generate a PRG or SID file. 

Note: the original code don't use the IRQ 

routine. However, the engine used is a 

minor version of one used in "Return of Sheba" 

so it is taken to be used here 



. ifdef sid 

.byte "PSID" 

.word S0200 ; version 2 

.word $7C00 ; data offset 

.word $0000 ; load address in cbm format 

-byte >initMusic 

-byte <initMusic 

.byte >playMusic 

.byte <playMusic 

.word $0400 ; 4 songs 

.word $0100 ; default song 

.word $FFFF 

.word $FFFF 

.byte "Testcard", 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

.byte "Andrew Colin", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

.byte "1982 Commodore Inc", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

.word $0000 

.word $0000 

.word $0000 
. endif 

.org $0801 



; PRG start address 
'.byte $01, $08 



; BASIC startup program 
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.byte $0b,$08,$e8,$03,$9e,"2061",0,0,0 

.org 2061 

jsr initMusic 

sei 

Ida #<interr 

sta $0314 

Ida #>interr 

sta $0315 

cli 



aaa : 






jmp aaa 






interr = * 




Ida 


contr+0 


bne 


playMusic 


kernal : 






jmp 


$ea31 




playMusic: 




ldx 


#$00 




Ida 


instr+0 


X 


beq 


nend 




inc 


instr+5 


X 


bne 


nend 




inc 


instr+6 


X 


bne 


nend 




Ida 


instr+1 


X 


sta 


$fe 




Ida 


instr+2 


X 


sta 


$ff 




ldy 


#$00 




Ida 


($fe),y 




asl 






tay 






Ida 


contr+2 


y 


sta 


$d401,x 




Ida 


contr+3 


y 


sta 


$d400,x 




Ida 


instr+3 


X 


sta 


$fe 




Ida 


instr+4 


X 


sta 


$ff 




ldy 


#$00 




Ida 


($fe),y 




bne 


skip 




sta 


instr+0 


X 


jmp 


nend 




skip: 






tay 






loop: 






Ida 


instr+5 


X 


sec 






sbc 


contr+1 




sta 


instr+5 


X 


Ida 


instr+6 


X 


sbc 


#$00 




sta 


instr+6 


X 


dey 






bne 


loop 




inc 


instr+1 


X 


bne 


skipl 




inc 


instr+2 


X 


skipl : 






inc 


instr+3 


X 


bne 


skip2 




inc 


instr+4 


X 


skip2 : 






Ida 


#$00 




sta 


$d404,x 




Ida 


instr+0 


X 


sta 


$d404,x 




nend: 






txa 






clc 






adc 


#$07 




tax 






cmp 


#$15 




bne 


skip3 




. ifdef sid 




rts 






. endif 






jmp 


kernal 




skip3 : 






jmp 


playMusic+ 



Voice 1: Control registers 



Voice 1: notes address lo 
Voice 1: notes address hi 



Voice 1: Frequency control (hi byte) 

Voice 1: Frequency control (lo byte) 

Voice 1: notes duration address lo 

Voice 1: notes duration address hi 



Voice 1: Control registers 



Voice 1 
Voice 1 
Voice 1 
Voice 1 



Voice 1 
Voice 1 
Voice 1 



notes address lo 

notes address hi 

notes duration address lo 

notes duration address hi 



Control registers 
Control registers 
Control registers 
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initMusic 






pha 






ldx 


#24 




Ida 


#0 


1 


oopl : 






sta 


$D400,x 




dex 






bpl 


loopl 




pla 






asl 


a 




asl 


a 




asl 


a 




asl 


a 




tax 






Ida 


songs, x 




sta 


contr+1 




inx 






Ida 


songs, x 




sta 


$D405 




sta 


$D40C 




sta 


$D413 




inx 






Ida 


songs, x 




sta 


$D406 




sta 


$D40D 




sta 


$D414 




inx 






Ida 


#$0F 




sta 


$D418 




Ida 


songs, x 




sta 


instr+1 




inx 






Ida 


songs, x 




sta 


instr+2 




inx 






Ida 


songs, x 




sta 


instr+3 




inx 






Ida 


songs, x 




sta 


instr+4 




inx 






Ida 


songs, x 




sta 


instr+8 




inx 






Ida 


songs, x 




sta 


instr+9 




inx 






Ida 


songs, x 




sta 


instr+10 




inx 






Ida 


songs, x 




sta 


instr+11 




inx 






Ida 


songs, x 




sta 


instr+15 




inx 






Ida 


songs, x 




sta 


instr+16 




inx 






Ida 


songs, x 




sta 


instr+17 




inx 






Ida 


songs, x 




sta 


instr+18 




rts 





initialize control registers 
save tune number 

erase all sid registers 



tune number 



velocity 



Generator 1 
Generator 1 
Generator 1 



Generator 1 
Generator 1 
Generator 1 



volume 



Attack/Decay (voice 1) 
Attack/Decay (voice 2) 
Attack/Decay (voice 3) 



Sustain/Release (voice 1) 
Sustain/Release (voice 2) 
Sustain/Release (voice 3) 



initialze sid registers 



songs =* 

.byte $0F 

.byte $0A 

.byte $00 

.byte <nGavottel 

.byte >nGavottel 

.byte <lGavottel 



velocity 
Attack/Decay 
Sustain /Re lease 



Voice 1 
Voice 1 
Voice 1 



notes address lo 
notes address hi 
notes duration address lo 
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e 


>lGavottel 


e 


<nGavotte2 


e 


>nGavotte2 


e 


<lGavotte2 


e 


>lGavotte2 


e 


<nGavotte3 


e 


>nGavotte3 


e 


<lGavotte3 


e 


>lGavotte3 


e 


$00 


e 


$0E 


e 


$0C 


e 


$00 


e 


<nMarinesl 


e 


>nMarinesl 


e 


<lMarinesl 


e 


>lMarinesl 


e 


<nMarines2 


e 


>nMarines2 


e 


<lMarines2 


e 


>lMarines2 


e 


<nNull 


e 


>nNull 


e 


<nNull 


e 


>nNull 


e 


$00 


e 


$11 


e 


$3B 


e 


$00 


e 


<nAndantel 


e 


>nAndantel 


e 


<lAndantel 


e 


MAndantel 


e 


<nAndante2 


e 


>nAndante2 


e 


<lAndante2 


e 


>lAndante2 


e 


<nNull 


e 


>nNull 


e 


<nNull 


e 


>nNull 


e 


$00 


e 


$0A 


e 


$19 


e 


$00 


e 


<nAllegrol 


e 


>nAllegrol 


e 


<lAllegrol 


e 


>lAllegrol 


e 


<nAllegro2 


e 


>nAllegro2 


e 


<lAllegro2 


e 


>lAllegro2 


e 


<nNull 


e 


>nNull 


e 


<nNull 


e 


>nNull 


e 


$00 



Voice 


1 


notes 


duration address 


hi 


Voice 


2 


notes 


address lo 




Voice 


2 


notes 


address hi 




Voice 


2 


notes 


duration address 


lo 


Voice 


2 


notes 


duration address 


hi 


Voice 


3 


notes 


address lo 




Voice 


3 


notes 


address hi 




Voice 


3 


notes 


duration address 


lo 


Voice 


3 


notes 


duration address 


hi 


velocity 






Attack/Decay 






Sustain /Re lease 




Voice 


1 


notes 


address lo 




Voice 


1 


notes 


address hi 




Voice 


1 


notes 


duration address 


lo 


Voice 


1 


notes 


duration address 


hi 


Voice 


2 


notes 


address lo 




Voice 


2 


notes 


address hi 




Voice 


2 


notes 


duration address 


lo 


Voice 


2 


notes 


duration address 


hi 


Voice 


3 


notes 


address lo 




Voice 


3 


notes 


address hi 




Voice 


3 


notes 


duration address 


lo 


Voice 


3 


notes 


duration address 


hi 


velocity 






Attack/Decay 






Sustain /Re lease 




Voice 


1 


notes 


address lo 




Voice 


1 


notes 


address hi 




Voice 


1 


notes 


duration address 


lo 


Voice 


1 


notes 


duration address 


hi 


Voice 


2 


notes 


address lo 




Voice 


2 


notes 


address hi 




Voice 


2 


notes 


duration address 


lo 


Voice 


2 


notes 


duration address 


hi 


Voice 


3 


notes 


address lo 




Voice 


3 


notes 


address hi 




Voice 


3 


notes 


duration address 


lo 


Voice 


3 


notes 


duration address 


hi 


velocity 






Attack/Decay 






Sustain /Re lease 




Voice 


1 


notes 


address lo 




Voice 


1 


notes 


address hi 




Voice 


1 


notes 


duration address 


lo 


Voice 


1 


notes 


duration address 


hi 


Voice 


2 


notes 


address lo 




Voice 


2 


notes 


address hi 




Voice 


2 


notes 


duration address 


lo 


Voice 


2 


notes 


duration address 


hi 


Voice 


3 


notes 


address lo 




Voice 


3 


notes 


address hi 




Voice 


3 


notes 


duration address 


lo 


Voice 


3 


notes 


duration address 


hi 



contr = 






.byte 


1;0 




.byte 


8 




.byte 


0,0 




freq =* 






.byte 


$02, 


$d0 


.byte 


$02, 


$fb 


.byte 


$03, 


$28 


.byte 


$03, 


$58 


.byte 


$00, 


$00 


.byte 


$03, 


$cl 


.byte 


$03, 


$fa 


.byte 


$04, 


$37 


.byte 


$04, 


$77 


.byte 


$04, 


$bb 


.byte 


$05, 


$03 


.byte 


$05, 


$4f 


.byte 


$05, 


$a0 


.byte 


$05, 


$f6 


.byte 


$06, 


$50 


.byte 


$06, 


$b0 


.byte 


$07, 


$16 


.byte 


$07, 


$82 


.byte 


$07, 


$f4 


.byte 


$08, 


$6e 


.byte 


$08, 


See 



control register 
velocity 
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.byte 


$09 


$76 


.byte 


$0a 


$06 


.byte 


$0a 


$9e 


.byte 


$0b 


$40 


.byte 


$0b 


$eb 


.byte 


$0c 


$al 


.byte 


$0d 


$61 


.byte 


$0e 


$2d 


.byte 


$0f 


$04 


.byte 


$0f 


$e9 


.byte 


$10 


$db 


.byte 


$11 


$dc 


.byte 


$12 


$ec 


.byte 


$14 


$0c 


.byte 


$15 


$3d 


.byte 


$16 


$80 


.byte 


$17 


$d7 


.byte 


$19 


$41 


.byte 


$la 


$c2 


.byte 


$lc 


$59 


.byte 


$le 


$09 


.byte 


$lf 


$d2 


.byte 


$21 


$b6 


.byte 


$23 


$b7 


.byte 


$25 


$d7 


.byte 


$28 


$17 


.byte 


$2a 


$79 


.byte 


$2d 


$00 


.byte 


$2f 


$ad 


.byte 


$32 


$83 


.byte 


$35 


$84 


.byte 


$38 


$b2 


.byte 


$3c 


$11 


.byte 


$3f 


$a4 


.byte 


$43 


$6c 


.byte 


$47 


$6f 


.byte 


$4b 


$ae 


.byte 


$50 


$2e 


.byte 


$54 


$f3 


instr=* 






.byte 


33 




.byte 


<nG 


avottel 


.byte 


>nG 


avottel 


.byte 


<1G 


avottel 


.byte 


>1G 


avottel 


.byte 


255 




.byte 


255 




.byte 


33 




.byte 


<nG 


avotte2 


.byte 


>nG 


avotte2 


.byte 


<1G 


avotte2 


.byte 


>1G 


avotte2 


.byte 


255 




.byte 


255 





Voice 1 
Voice 1 
Voice 1 
Voice 1 
Voice 1 



Voice 2 : 
Voice 2 : 
Voice 2 : 
Voice 2 : 
Voice 2 : 



Control registers 

notes address lo 

notes address hi 

notes duration address lo 

notes duration address hi 



Control registers 

notes address lo 

notes address hi 

notes duration address lo 

notes duration address hi 



.byte 33 

.byte <nGavotte3 
.byte >nGavotte3 
.byte <lGavotte3 
.byte >lGavotte3 
.byte 255 
.byte 255 



Voice 3 
Voice 3 
Voice 3 
Voice 3 
Voice 3 



Control registers 

notes address lo 

notes address hi 

notes duration address lo 

notes duration address hi 



nGavottel = * 
.byte $05, 
.byte $2e, 
.byte $30, 
.byte $2c, 
.byte $2c, 



$2c, 
$30, 
$2e, 
$27, 
$33, 



$2b, 
$31, 
$2c, 
$30, 
$31, 



$2c, 
$30, 
$2e, 
$2e, 
$30, 



$2e, 
$2e, 
$2c, 
$30, 
$2e, 



; note value for voice 1 
$2c, $27, $30 
$31 
$2e 
$2e 



$2c, 
$2b, 
$31, 
$2c, 



$33, 

$2c, 
$30, 
$2e 



.byte $27, 

.byte $24, 

.byte $20, 

.byte $25, 

.byte $20, 

.byte $27, 

.byte $24, 

.byte $20, 

.byte $25, 

.byte $20, 



$25, 
$22, 
$lf, 
$27, 
$lf, 

$25, 
$22, 
$lf, 
$27, 
$lf, 



$24, 
$20, 
$20, 
$24, 

$20, 

$24, 
$20, 
$20, 
$24, 
$20, 



$29, 
$25, 
$22, 
$22, 
$22, 

$29, 
$25, 
$22, 
$22, 
$22, 



$25, 
$24, 
$20, 
$24, 
$24, 

$25, 
$24, 
$20, 
$24, 
$24, 



$24, $22, $27 

$22, $20, $lf 

$lb, $25, $24 

$25, $22, $27 

$22, $20 

$24, $22, $27 

$22, $20, $lf 

$lb, $25, $24 

$25, $22, $27 

$22, $20, $00 



IGavottel =* ; note duration for voice 1 

.byte $08, $01, $01, $01, $01, $02, $02, $01 

.byte $01, $01, $01, $02, $02, $02, $02, $02 

.byte $02, $02, $02, $04, $01, $01, $01, $01 

.byte $02, $02, $01, $01, $01, $01, $02, $02 

.byte $02, $02, $02, $02, $02, $02, $04 
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.byte 


$02, 


$01, 


$01, 


$04, 


$02, 


$01, 


$01, 


$04 




.byte 


$02, 


$01, 


$01, 


$02, 


$02, 


$02, 


$02, 


$04 




.byte 


$01, 


$01, 


$01, 


$01, 


$02, 


$02, 


$01, 


$01 




.byte 


$01, 


$01, 


$01, 


$01, 


$01, 


$01, 


$02, 


$02 




.byte 


$01, 


$01, 


$01, 


$01, 


$02, 


$02, 


$04 






.byte 


$02, 


$01, 


$01, 


$04, 


$02, 


$01, 


$01, 


$04 




.byte 


$02, 


$01, 


$01, 


$02, 


$02, 


$02, 


$02, 


$04 




.byte 


$01, 


$01, 


$01, 


$01, 


$02, 


$02, 


$01, 


$01 




.byte 


$01, 


$01, 


$01, 


$01, 


$01, 


$01, 


$02, 


$02 




.byte 


$01, 


$01, 


$01, 


$01, 


$02, 


$02, 


$04, 


$00 




nGavotte2 =* 










; n 


ote value for voice 2 




.byte 


$05, 


$05, 


$27, 


$27, 


$29, 


$2c, 


$29, 


$2b 




.byte 


$2c, 


$29, 


$26, 


$27, 


$05, 


$27, 


$27, 


$29 




.byte 


$2c, 


$29, 


$2b, 


$2c, 


$29, 


$26, 


$27 






.byte 


$20, 


$24, 


$22, 


$20, 


$22, 


$05, 


$22, 


$20 




.byte 


$lf, 


$20, 


$05, 


$20, 


$20, 


$ld, 


$lb, 


$05 




.byte 


$05, 


$05, 


$20, 


$20, 


$lf, 


$20, 


$22, 


$20 




.byte 


$lf, 


$18 
















.byte 


$20, 


$24, 


$22, 


$20, 


$22, 


$05, 


$22, 


$20 




.byte 


$lf, 


$20, 


$05, 


$20, 


$20, 


$ld, 


$lb, 


$05 




.byte 


$05, 


$05, 


$20, 


$20, 


$lf, 


$20, 


$22, 


$20 




.byte 


$lf, 


$18, 


$00 














lGavotte2 =* 










; n 


ote duration for voice 


2 


.byte 


$08, 


$08, 


$04, 


$04, 


$02, 


$02, 


$01, 


$01 




.byte 


$02, 


$02, 


$02, 


$04, 


$08, 


$04, 


$04, 


$02 




.byte 


$02, 


$01, 


$01, 


$02, 


$02, 


$02, 


$04 






.byte 


$04, 


$02, 


$01, 


$01, 


$02, 


$02, 


$02, 


$01 




.byte 


$01, 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$08 




.byte 


$08, 


$06, 


$02, 


$01, 


$01, 


$01, 


$01, 


$02 




.byte 


$02, 


$04 
















.byte 


$04, 


$02, 


$01, 


$01, 


$02, 


$02, 


$02, 


$01 




.byte 


$01, 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$08 




.byte 


$08, 


$06, 


$02, 


$01, 


$01, 


$01, 


$01, 


$02 




.byte 


$02, 


$04, 


$00 














nGavotte3 =* 










; n 


ote value for voice 3 




.byte 


$05, 


$14, 


$18, 


$lb, 


$20, 


$lf, 


$20, 


$22 




.byte 


$20, 


$lf, 


$ld, 


$24, 


$22, 


$20, 


$19, 


$ld 




.byte 


$lb, 


$19, 


$18, 


$16, 


$14, 


$18, 


$lb, 


$20 




.byte 


$lf, 


$20, 


$22, 


$20, 


$lf, 


$ld, 


$24, 


$22 




.byte 


$20, 


$19, 


$ld, 


$lb 












.byte 


$18, 


$14, 


$11, 


$16, 


$13, 


$11, 


$0f, 


$14 




.byte 


$18, 


$11, 


$14, 


$16, 


$18, 


$lb, 


$19, 


$18 




.byte 


$16, 


$18, 


$14, 


$16, 


$lf, 


$20, 


$14, 


$lb 




.byte 


$19, 


$18, 


$ld, 


$19, 


$lb, 


$0f, 


$14 






.byte 


$18, 


$14, 


$11, 


$16, 


$13, 


$11, 


$0f, 


$14 




.byte 


$18, 


$11, 


$14, 


$16, 


$18, 


$lb, 


$19, 


$18 




.byte 


$16, 


$18, 


$14, 


$16, 


$lf, 


$20, 


$14, 


$lb 




.byte 


$19, 


$18, 


$ld, 


$19, 


$lb, 


$0f, 


$14, 


$00 




lGavotte3 =* 










; n 


ote duration for voice 


3 


.byte 


$08, 


$04, 


$02, 


$02, 


$01, 


$01, 


$01, 


$01 




.byte 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$02 




.byte 


$01, 


$01, 


$01, 


$01, 


$04, 


$02, 


$02, 


$01 




.byte 


$01, 


$01, 


$01, 


$02, 


$02, 


$02, 


$02, 


$02 




.byte 


$02, 


$02, 


$02, 


$04 












.byte 


$04, 


$02, 


$02, 


$04, 


$02, 


$01, 


$01, 


$02 




.byte 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$02 




.byte 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$01 




.byte 


$01, 


$02, 


$02, 


$02, 


$02, 


$02, 


$04 






.byte 


$04, 


$02, 


$02, 


$04, 


$02, 


$01, 


$01, 


$02 




.byte 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$02 




.byte 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$02, 


$01 




.byte 


$01, 


$02, 


$02, 


$02, 


$02, 


$02, 


$04, 


$00 




nMarinesl = * 


















.byte 


$05, 


$le, 


$22, 


$25, 


$25, 


$25, 


$25, 


$25 




.byte 


$2a, 


$25, 


$22, 


$23, 


$25, 


$25, 


$23, 


$20 




.byte 


$le, 


$le, 


$22, 


$25, 


$25, 


$25, 


$25, 


$25 




.byte 


$2a, 


$25, 


$22, 


$23, 


$25, 


$25, 


$23, 


$20 




.byte 


$le, 


$2a, 


$29, 


$27, 


$23, 


$27, 


$23, 


$25 




.byte 


$27, 


$25, 


$2a, 


$29, 


$27, 


$23, 


$27, 


$2a 




.byte 


$25, 


$le, 


$22, 


$25, 


$25, 


$25, 


$25, 


$25 




.byte 


$2a, 


$25, 


$22, 


$23, 


$25, 


$25, 


$23, 


$20 




.byte 


$le, 


$00 
















lMarinesl = * 


















.byte 


$08, 


$01, 


$01, 


$02, 


$02, 


$02, 


$02, 


$03 





39 



.byte $01, $02, $01, $01, $02, $02, $02, $02 

.byte $06, $01, $01, $02, $02, $02, $02, $03 

.byte $01, $02, $01, $01, $02, $02, $02, $02 

.byte $06, $01, $01, $02, $02, $02, $02, $03 

.byte $01, $02, $01, $01, $02, $02, $02, $02 

.byte $06, $01, $01, $02, $02, $02, $02, $03 

.byte $01, $02, $01, $01, $02, $02, $02, $02 

.byte $07, $00 

nMarines2 = * 

.byte $05, $12, $12, $16, $16, $05, $16, $05 

.byte $16, $05, $16, $05, $16, $16, $16, $16 

.byte $05, $11, $11, $05, $11, $05, $11, $05 

.byte $11, $12, $16, $16, $16, $16, $05, $16 



.byte 


$16, 


$05, 


$16, 


$05, 


$16, 


$05, 


$16, 


$05 


.byte 


$16, 


$16, 


$16, 


$16, 


$05, 


$11, 


$11, 


$05 


.byte 


$11, 


$05, 


$11, 


$05, 


$11, 


$12, 


$16, 


$16 


.byte 


$16, 


$16, 


$05, 


$05, 


$17, 


$05, 


$12, 


$05 


.byte 


$17, 


$05, 


$12, 


$05, 


$16, 


$16, 


$16, 


$16 


.byte 


$05, 


$05, 


$17, 


$05, 


$12, 


$05, 


$17, 


$05 


.byte 


$12, 


$05, 


$16, 


$16, 


$16, 


$16, 


$05, 


$16 


.byte 


$16, 


$05, 


$16, 


$05, 


$16, 


$05, 


$16, 


$05 


.byte 


$16, 


$16, 


$16, 


$16, 


$05, 


$11, 


$11, 


$05 


.byte 


$11, 


$05, 


$11, 


$05, 


$11, 


$12, 


$16, 


$16 


.byte 


$16, 


$16, 


$00 













lMarines2 = * 

.byte $08, $01, $01, $01, $01, $01, $01, $01 

.byte $01, $01, $01, $01, $01, $01, $01, $02 

.byte $02, $01, $01, $01, $01, $01, $01, $01 

.byte $01, $01, $01, $01, $01, $02, $02, $01 

.byte $01, $01, $01, $01, $01, $01, $01, $01 

.byte $01, $01, $01, $02, $02, $01, $01, $01 

.byte $01, $01, $01, $01, $01, $01, $01, $01 

.byte $01, $02, $02, $01, $01, $01, $01, $01 

.byte $01, $01, $01, $01, $01, $01, $01, $02 

.byte $02, $01, $01, $01, $01, $01, $01, $01 

.byte $01, $01, $01, $01, $01, $02, $02, $01 

.byte $01, $01, $01, $01, $01, $01, $01, $01 

.byte $01, $01, $01, $02, $02, $01, $01, $01 

.byte $01, $01, $01, $01, $01, $01, $01, $01 

.byte $01, $03, $00 



nAndantel = * 
















.byte $05, 


$2a, 


$2c, 


$2a, 


$2c, 


$2e, 


$2a, 


$25 


.byte $25, 


$25, 


$2c, 


$2e, 


$2c, 


$2e, 


$2f, 


$2c 


.byte $25, 


$25, 


$25, 


$31, 


$29, 


$2a, 


$2c, 


$29 


.byte $2a, 


$33, 


$30, 


$2c, 


$2a, 


$29, 


$31, 


$2e 


.byte $33, 


$31, 


$30, 


$30, 


$31, 


$05 







.byte $05, $2a, $2c, $2a, $2c, $2e, $2a, $25 

.byte $25, $25, $2c, $2e, $2c, $2e, $2f, $2c 

.byte $25, $25, $25, $31, $29, $2a, $2c, $29 

.byte $2a, $33, $30, $2c, $2a, $29, $31, $2e 

.byte $33, $31, $30, $30, $31, $05 

.byte $31, $2e, $2f, $31, $33, $2f, $2c, $2e 

.byte $2f, $31, $2f, $2e, $2c, $2e, $2a, $2f 

.byte $2e, $2c, $05, $2f, $2e, $2c, $2a, $29 

.byte $31, $2f, $2e, $2c, $2a, $27, $33, $2f 

.byte $2c, $2a, $29, $29, $2a, $05 



.byte 


$31, 


$2e, 


$2f, 


$31, 


$33, 


$2f, 


$2c, 


$2e 


.byte 


$2f, 


$31, 


$2f, 


$2e, 


$2c, 


$2e, 


$2a, 


$2f 


.byte 


$2e, 


$2c, 


$05, 


$2f, 


$2e, 


$2c, 


$2a, 


$29 


.byte 


$31, 


$2f, 


$2e, 


$2c, 


$2a, 


$27, 


$33, 


$2f 


.byte 


$2c, 


$2a, 


$29, 


$29, 


$2a, 


$05, 


$00 




lAndantel = * 
















.byte 


$04, 


$04, 


$01, 


$01, 


$01, 


$01, 


$02, 


$02 


.byte 


$02, 


$02, 


$04, 


$01, 


$01, 


$01, 


$01, 


$02 


.byte 


$02, 


$02, 


$02, 


$04, 


$01, 


$01, 


$01, 


$01 


.byte 


$04, 


$01, 


$01, 


$01, 


$01, 


$01, 


$01, 


$01 


.byte 


$01, 


$02, 


$02, 


$04, 


$02, 


$02 







.byte $04, $04, $01, $01, $01, $01, $02, $02 

.byte $02, $02, $04, $01, $01, $01, $01, $02 

.byte $02, $02, $02, $04, $01, $01, $01, $01 

.byte $04, $01, $01, $01, $01, $01, $01, $01 

.byte $01, $02, $02, $04, $02, $02 

.byte $04, $01, $01, $01, $01, $04, $01, $01 

.byte $01, $01, $01, $01, $01, $01, $02, $02 

.byte $04, $02, $02, $04, $01, $01, $01, $01 

.byte $04, $01, $01, $01, $01, $01, $01, $01 

.byte $01, $02, $02, $04, $02, $02 

.byte $04, $01, 

.byte $01, $01, 

.byte $04, $02, 



$01, 


$01, 


$01, 


$04, 


$01, 


$01 


$01, 


$01, 


$01, 


$01, 


$02, 


$02 


$02, 


$04, 


$01, 


$01, 


$01, 


$01 



40 



.byte $04, 
.byte $01, 



$01, 
$02, 



$01, 
$02, 



$01, 
$04, 



$01, 
$02, 



$01, 
$02, 



$01, 
$00 



$01 



nAndante2 = * 
.byte $05, 
.byte $25, 
.byte $29, 
.byte $22, 
.byte $2c, 

.byte $05, 
.byte $25, 
.byte $29, 
.byte $22, 
.byte $2c, 



$22, 
$22, 
$25, 
$05, 
$2c, 

$22, 
$22, 
$25, 
$05, 
$2c, 



$25, 
$le, 
$29, 
$25, 
$25, 

$25, 
$le, 
$29, 
$25, 
$25, 



$22, 
$25, 

$2c, 
$27, 
$05 

$22, 
$25, 
$2c, 
$27, 
$05 



$le, 
$2a, 
$29, 
$24, 



$le, 
$2a, 
$29, 
$24, 



$22, 
$29, 
$2c, 
$25, 



$22, 
$29, 
$2c, 
$25, 



$25, 
$2a, 
$29, 
$2a, 



$25, 
$2a, 
$29, 
$2a, 



$22 
$2c 
$25 
$2c 



$22 
$2c 
$25 
$2c 



.byte $05, 

.byte $2a, 

.byte $25, 

.byte $27, 



$2e, 
$29, 

$05, 
$05, 



$2b, 
$27, 
$2c, 
$24, 



$27, 
$2c, 
$29, 
$25, 



$05, 
$2a, 
$25, 
$05, 



$2c, 
$le, 
$05, 
$05, 



$29, 
$22, 
$22, 
$le, 



$25 
$le 
$2a 
$05 



.byte $05, 

.byte $2a, 

.byte $25, 

.byte $27, 

.byte $00 



$2e, 
$29, 
$05, 
$05, 



$2b, 
$27, 
$2c, 
$24, 



$27, 
$2c, 
$29, 
$25, 



$05, 
$2a, 
$25, 
$05, 



$2c, 
$le, 
$05, 
$05, 



$29, 
$22, 
$22, 
$le, 



$25 
$le 
$2a 
$05 



lAndante2 = * 
.byte $04, 
.byte $01, 
.byte $01, 
.byte $02, 
.byte $02, 

.byte $04, 
.byte $01, 
.byte $01, 
.byte $02, 
.byte $02, 



$04, 
$01, 
$01, 
$02, 
$04, 

$04, 
$01, 
$01, 
$02, 
$04, 



$04, 
$01, 
$01, 
$04, 
$02, 

$04, 
$01, 
$01, 
$04, 
$02, 



$01, 
$04, 
$01, 
$04, 

$02 

$01, 
$04, 
$01, 
$04, 

$02 



$01, 
$01, 
$01, 
$04, 



$01, 
$01, 
$01, 
$04, 



$01, 
$01, 
$01, 
$02, 



$01, 
$01, 
$01, 
$02, 



$01, 
$01, 
$01, 
$02, 



$01, 
$01, 
$01, 
$02, 



$01 
$01 
$01 
$02 



$01 
$01 
$01 
$02 



.byte $02, 

.byte $02, 

.byte $02, 

.byte $02, 



$02, 
$02, 
$04, 
$03, 



$02, 
$02, 
$02, 
$01, 



$02, 
$02, 
$02, 
$02, 



$02, 
$01, 
$02, 
$02, 



$02, 
$01, 
$02, 
$04, 



$02, 
$01, 
$02, 
$02, 



$02 
$01 
$02 
$02 



.byte $02, 

.byte $02, 

.byte $02, 

.byte $02, 

.byte $00 



$02, 
$02, 
$04, 
$03, 



$02, 
$02, 
$02, 
$01, 



$02, 
$02, 
$02, 
$02, 



$02, 
$01, 
$02, 
$02, 



$02, 
$01, 
$02, 
$04, 



$02, 
$01, 
$02, 
$02, 



$02 
$01 
$02 
$02 



nAllegrol = 
.byte $05 
.byte $2a 
.byte $2a 
.byte $2e 
.byte $30 
.byte $30 
.byte $31 
.byte $30 

.byte $05 
.byte $2a 
.byte $2a 
.byte $2e 

.byte $30 
.byte $30 
.byte $31 
.byte $30 

.byte $25 
.byte $2f 
.byte $05 
.byte $2e 
.byte $2c 
.byte $36 
.byte $2a 
.byte $2e 

.byte $25 
.byte $2f 
.byte $05 
.byte $2e 
.byte $2c 
.byte $36 
.byte $2a 
.byte $2e 
.byte $00 



, $2e 


$31 


$2f, 


$2e 


$2c, 


$2a, 


, $2c 


$2c 


$2c, 


$2c 


$2e, 


$2a, 


, $2c 


$2c 


$2c, 


$2c 


$2e, 


$2a, 


, $2f 


$31 


$33, 


$35 


$36, 


$33, 


, $31 


$05 


$31, 


$33 


$35, 


$36, 


, $31 


$33 


$30, 


$31 


$33, 


$35, 


, $35 


$33 


$31, 


$33 


$35, 


$36, 


, $31 


$33 


$30, 


$31 


$05 




, $2e 


$31 


$2f, 


$2e 


$2c, 


$2a, 


, $2c 


$2c 


$2c, 


$2c 


$2e, 


$2a, 


, $2c 


$2c 


$2c, 


$2c 


$2e, 


$2a, 


, $2f 


$31 


$33, 


$35 


$36, 


$33, 


, $31 


$05 


$31, 


$33 


$35, 


$36, 


, $31 


$33 


$30, 


$31 


$33, 


$35, 


, $35 


$33 


$31, 


$33 


$35, 


$36, 


, $31 


$33 


$30, 


$31 


$05 




, $31 


$2e 


$33, 


$31 


$2f, 


$2c, 


, $2e 


$2a 


$2f, 


$2e 


$2c, 


$2a, 


, $2e 


$31 


$2f, 


$2e 


$2c, 


$2a, 


, $2f 


$31 


$33, 


$35 


$36, 


$35, 


, $2e 


$2f 


$31, 


$2e 


$2c, 


$2a, 


, $05 


$31 


$05, 


$2f 


$05, 


$2c, 


, $05 


$25 


$2a, 


$2a 


$2a, 


$25, 


, $2e 


$2a 


$31, 


$2c 


$2e, 


$2a, 


, $31 


$2e 


$33, 


$31 


$2f, 


$2c, 


, $2e 


$2a 


$2f, 


$2e 


$2c, 


$2a, 


, $2e 


$31 


$2f, 


$2e 


$2c, 


$2a, 


, $2f 


$31 


$33, 


$35 


$36, 


$35, 


, $2e 


$2f 


$31, 


$2e 


$2c, 


$2a, 


, $05 


$31 


$05, 


$2f 


$05, 


$2c, 


, $05 


$25 


$2a, 


$2a 


$2a, 


$25, 


, $2e 


$2a 


$31, 


$2c 


$2e, 


$2a, 



$05 
$05 
$2c 
$2e 
$33 
$36 
$33 



$05 
$05 
$2c 
$2e 
$33 
$36 
$33 



$31 
$31 
$2c 

$2a 
$35 
$05 
$2e 

$05 

$31 
$31 
$2c 
$2a 
$35 
$05 
$2e 
$05 



lAllegrol = * 



41 



.byte 


$08 


$02 


$02 


$02, 


$02 


$02, 


$04, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$01 


$01, 


$04, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$01 


$01, 


$02, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$01 


$02, 


$02, 


$02 


.byte 


$02 


$04 


$02 


$02, 


$01 


$01, 


$01, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$01 


$01, 


$01, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$01 


$01, 


$01, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$04 


$02 






.byte 


$08 


$02 


$02 


$02, 


$02 


$02, 


$04, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$01 


$01, 


$04, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$01 


$01, 


$02, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$01 


$02, 


$02, 


$02 


.byte 


$02 


$04 


$02 


$02, 


$01 


$01, 


$01, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$01 


$01, 


$01, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$01 


$01, 


$01, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$04 


$02 






.byte 


$02 


$06 


$02 


$06, 


$02 


$06, 


$02, 


$06 


.byte 


$02 


$06 


$04 


$04, 


$04 


$04, 


$02, 


$04 


.byte 


$02 


$02 


$02 


$02, 


$02 


$02, 


$01, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$01 


$01, 


$08, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$01 


$01, 


$01, 


$08 


.byte 


$02 


$02 


$02 


$02, 


$02 


$02, 


$02, 


$02 


.byte 


$04 


$02 


$02 


$02, 


$02 


$02, 


$02, 


$02 


.byte 


$02 


$02 


$02 


$04, 


$03 


$01, 


$04, 


$02 


.byte 


$02 


$06 


$02 


$06, 


$02 


$06, 


$02, 


$06 


.byte 


$02 


$06 


$04 


$04, 


$04 


$04, 


$02, 


$04 


.byte 


$02 


$02 


$02 


$02, 


$02 


$02, 


$01, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$01 


$01, 


$08, 


$01 


.byte 


$01 


$01 


$01 


$01, 


$01 


$01, 


$01, 


$08 


.byte 


$02 


$02 


$02 


$02, 


$02 


$02, 


$02, 


$02 


.byte 


$04 


$02 


$02 


$02, 


$02 


$02, 


$02, 


$02 


.byte 


$02 


$02 


$02 


$04, 


$03 


$01, 


$04, 


$02 


.byte 


$00 
















nAllegro2 = 
















.byte 


$05 


$2a 


$2e 


$2c, 


$2a 


$25, 


$22, 


$05 


.byte 


$22 


$25 


$25 


$25, 


$25 


$22, 


$05, 


$22 


.byte 


$25 


$25 


$25 


$25, 


$22 


$05, 


$2a, 


$29 


.byte 


$2c 


$29 


$2c 


$2a, 


$2c 


$2a, 


$2c, 


$29 


.byte 


$2c 


$29 


$2c 


$2a, 


$2c 


$2a, 


$2c, 


$29 


.byte 


$05 
















.byte 


$05 


$2a 


$2e 


$2c, 


$2a 


$25, 


$22, 


$05 


.byte 


$22 


$25 


$25 


$25, 


$25 


$22, 


$05, 


$22 


.byte 


$25 


$25 


$25 


$25, 


$22 


$05, 


$2a, 


$29 


.byte 


$2c 


$29 


$2c 


$2a, 


$2c 


$2a, 


$2c, 


$29 


.byte 


$2c 


$29 


$2c 


$2a, 


$2c 


$2a, 


$2c, 


$29 


.byte 


$05 
















.byte 


$05 


$le 


$2a 


$27, 


$2c 


$2a, 


$29, 


$25 


.byte 


$2a 


$29 


$28 


$27, 


$25 


$23, 


$24, 


$25 


.byte 


$05 


$2a 


$2e 


$2c, 


$2a 


$25, 


$22, 


$05 


.byte 


$2e 


$2f 


$2c 


$31, 


$2f 


$2e, 


$05, 


$2e 


.byte 


$2f 


$2c 


$31 


$2f, 


$2e 


$05, 


$2e, 


$05 


.byte 


$2c 


$05 


$25 


$05, 


$22 


$05, 


$19, 


$le 


.byte 


$le 


$le 


$19 


$22, 


$22 


$22, 


$le, 


$25 


.byte 


$19 


$le 


$05 












.byte 


$05 


$le 


$2a 


$27, 


$2c 


$2a, 


$29, 


$25 


.byte 


$2a 


$29 


$28 


$27, 


$25 


$23, 


$24, 


$25 


.byte 


$05 


$2a 


$2e 


$2c, 


$2a 


$25, 


$22, 


$05 


.byte 


$2e 


$2f 


$2c 


$31, 


$2f 


$2e, 


$05, 


$2e 


.byte 


$2f 


$2c 


$31 


$2f, 


$2e 


$05, 


$2e, 


$05 


.byte 


$2c 


$05 


$25 


$05, 


$22 


$05, 


$19, 


$le 


.byte 


$le 


$le 


$19 


$22, 


$22 


$22, 


$le, 


$25 


.byte 


$19 


$le 


$05 


$00 










lAllegro2 = 
















.byte 


$08 


$02 


$02 


$02, 


$02 


$02, 


$04, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$02 


$04, 


$02, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$04 


$04, 


$08, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$02 


$02, 


$02, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$02 


$02, 


$02, 


$04 


.byte 


$02 
















.byte 


$08 


$02 


$02 


$02, 


$02 


$02, 


$04, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$02 


$04, 


$02, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$04 


$04, 


$08, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$02 


$02, 


$02, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$02 


$02, 


$02, 


$04 


.byte 


$02 
















.byte 


$04 


$02 


$06 


$02, 


$06 


$02, 


$06, 


$02 


.byte 


$06 


$02 


$04 


$04, 


$04 


$04, 


$04, 


$04 


.byte 


$02 


$02 


$02 


$02, 


$02 


$02, 


$04, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$02 


$04, 


$02, 


$02 


.byte 


$02 


$02 


$02 


$02, 


$02 


$02, 


$02, 


$02 



42 



.byte $02, $02, $02, $02, $04, $02, $02, $02 

.byte $02, $02, $02, $02, $02, $02, $02, $02 

.byte $04, $04, $04 

.byte $04, $02, $06, $02, $06, $02, $06, $02 

.byte $06, $02, $04, $04, $04, $04, $04, $04 

.byte $02, $02, $02, $02, $02, $02, $04, $02 

.byte $02, $02, $02, $02, $02, $04, $02, $02 

.byte $02, $02, $02, $02, $02, $02, $02, $02 

.byte $02, $02, $02, $02, $04, $02, $02, $02 

.byte $02, $02, $02, $02, $02, $02, $02, $02 

.byte $04, $04, $04, $00 

nNull =* 

.byte $05, $00 



Conclusion 




If you are wondering why it could be a good point to rip a BASIC music, the answer is simple: 
there are many old BASIC games that are attending to be ripped: check the Sid Hunt at 
http://lala.c64.org/sid-hunt 

At the end of this article I would like to thanks Andrew Colin for having created the Sheba music 
routine: I use it many years ago for experimenting Sid music (creating IMHO an horrible tune, but 
with good remembrance for me). 

Probably the fact of not having the machine code spread out in the book and so having hidden 
the sound generation of the player had give me the impulse to study the computer science: a 
choice that is more that 20 years I' m follow! 
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08GS**2te 3 end 
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